Put:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If SaveAsUI Then Sheet1.Shapes("CommandButton1").Delete

End Sub

in the ThisWorkbook code module of your workbook (substitute the
correct names for the sheet and commandbutton in question).

Or you could change the file path to a UNC path (i.e.
"\\servername\volume\directory\file")


Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=548916