The easiest thing to do would be to put the command

On Error goto EndMacro

and then just before the End Sub line put this label
EndMacro:

The error is occurring because there is no Chart1 to select on th
other sheet, right?

The second easiest thing to do would be to put the entire macro insid
an if statement:

If ActiveSheet.Name < "whatever the name of the sheet with the char
is" then

put all your stuff in here

End i

--
Message posted from http://www.ExcelForum.com