letzte zelle doppelklick | Herbers Excel-Forum

Guten Abend,
ich habe ein makro das die letzte zeille einer spalte mir anzeigt und in einer msgbox ausgibt.
ich möchte das auf die zelle doppelt geklickt wird. d.h letzte zelle finden und doppelklick

Sub Schaltfläche5_KlickenSieAuf()
Dim letzteZelle As Long
letzteZelle = Worksheets("Tabelle1").Cells.Find(What:="*", _
After:=[B1], SearchDirection:=xlPrevious).Row
MsgBox "Letzte Zelle: " & Cells(letzteZelle, 2).Address
End Sub