Pop Up venster creeren zodra cel word geselecteerd

[Mtijn1991]

Hallo,

Klein probleempje, ik wil graag een pop-up venster hebben zodra ik één maal op de bepaalde cel klik, of hier met de pijltjes/ tab / enter op kom.

Ik heb een klein stukje in VB geschreven, maar ik krijg hem alleen maar werkend wanneer ik op de cel dubbel klik..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Address = "$D$32" Then
If MsgBox("Is dit een Henk?", vbYesNo) = vbYes Then
Sheets("Zettijden").Range("G3").Value = 200
End If
End If
End Sub

Iemand die mij kan vertellen wat ik moet veranderen in de eerste zin zodat ik het werkend krijg?

 

[Niels28]

Dat doe je zo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

PS
Er is ook een zoekfunctie op deze site, heb gisteren nog het zelfde antwoord gegeven.

Niels

 

[Mtijn1991]

Exuus, kon het zo snel niet vinden..

Toch bedankt voor de snelle reactie!