Mausun da DblClick yaptığında inputbox gelsin

[haso_excel]

Merhaba arkadaşlar,

Active sheet üzerinde mausumu sol butonuna iki kere bastığımda imputbox açılacak içine yazdığım hücre adresi yazacağım ve ok dedeğimde ilgili hücreye gidecek. Bunu ctrl+go yapıp ta halledebilirim ama bu mümkün mü acaba ?

 

[hamitcan]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    adr = InputBox("Adresi Girin")
    Range(adr).Select
End Sub

şeklinde deneyin.

 

[haso_excel]

Teşekkür ederim.