Maybe no chart is active ?

Tim


wrote in message
...
I tried to export a chart to a network drive but it appeared an error
said "object variable or withblock variable not set".
here is the code:
Private Sub Workbook_Deactivate()
Application.ActiveWorkbook.ActiveChart.Export Filename:="\\dc\youu
\MyChart.gif", _
FilterName:="GIF"
End Sub

I try to add the codes below at the beginning,but it appeared the same
error.
ChDir "\\dc\Operation\Store-Department"

can anyone tell me the reason? How to solve this problem?
Thank you