Removing Drawn Object

[Brian Matlack]

Hello!

When I "Save As" to a new location, is there a code that would allow me
to remove a specified drawn object or control button?

I have a template workbook that the user can print instructions (word
document) from a button. After they "Save As" to whatever new location
they choose, the file path is no longer valid and I would like the
button to disappear.

Maybe there is a better way?

Thanks for any help or direction!

 

[colofnature]

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

 

[Brian Matlack]

Works Great Col!! Thanks for your time and help!