Wie macht man das bloss..?

Habe dieses Macro laufen:

Sub A()
Worksheets("Datenbank").Range("A442:c452").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Worksheets("Menu").Paste Destination:=Worksheets("Menu").Range("D6")
Application.Wait Now + TimeSerial(0, 0, 4)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

nun möchte ich aber das es nicht nach 4 sec verschwindet sondern auf mausklick..oder ähnliches..!!

Gruß Uwe W