Dim NewFN As Variant
' Copy Ticket to new workbook
NewFN = "C:\Users\Janit\Desktop\" & Range("S1").Value & ".xls"
For Each sh In ActiveSheet.Shapes:
If sh.TopLeftCell.Address = "$U$10" Then sh.Delete
I do know the name of the object should there be another code to use instead?
This macro works with Excel 2003, will save, remove macro object, close saved project and increment invoice number. Thank you so much for all the help you provided when I was stuck making my first macro :D