How to remove image with VB?

Hello,

I have everything working but removing the image before saving. The code is not working and not even sure where to place it. (using excel 2003) below is what my VBA looks like:

Sub NextTicket()

Range("S1").Value = Range("S1").Value + 1
Range("C7:G9").ClearContents
Range("J8:M8").ClearContents

End Sub

Sub SaveTicketWithNewName()
Dim NewFN As Variant
' Copy Ticket to new workbook
ActiveSheet.Copy
NewFN = "C:\Users\Janit\Desktop\" & Range("S1").Value & ".xls"
ActiveWorkbook.SaveAs NewFN
ActiveWorkbook.Close
NextTicket

End Sub

Sub DeleteButton()
For Each sh In ActiveSheet.Shapes:
If sh.TopLeftCell.Address = "$U$10" Then sh.Delete
Next sh
End Sub

I do know the name of the object should there be another code to use instead?

Any help would be greatly appreciated.