MsgBox Welche Zelle soll gelöscht werden

Sub Makro1()
Sheets("Tabelle2").Select: Range("B16").Select: Selection.ClearContents
End Sub

Wie kann man es einrichten, dass ein Msgbox erscheint bei Makro1()
MsgBox, Klick an, welche Zelle (Inhalt) gelöscht werden soll.
Es soll also nicht immer B16 gelöscht werden, sondern wo geklickt wird.
Dank und Gruss
Mehmet