UserForm Muisklik Openen

[Esducsafe]

Om met een muisklik op een Cell het UserForm te kunnen selecteren is elke Cell volgens onderstaande code benoemd. Mijn vraag, kunnen de cellen ook via een snellere wijze geactiveerd worden?
Met vriendelijke groet,
Esko

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rCcells As Range

 If Target.Address = Range("A1").Address Or _
     Target.Address = Range("A2").Address Or _
     Target.Address = Range("A3").Address Or _
     Target.Address = Range("A4").Address Or _
     Target.Address = Range("A5").Address Or _
     Target.Address = Range("A6").Address Or _
     Target.Address = Range("A7").Address Or _
     Target.Address = Range("A8").Address Or _
     Target.Address = Range("A9").Address Or _
     Target.Address = Range("A10").Address Or _
     Target.Address = Range("A11").Address Or _
     Target.Address = Range("A12").Address Or _
     Target.Address = Range("A13").Address Then
    Cancel = True
        UserForm1.Show
   End If

 

[Roncancio]

Je code is te vervangen door:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A13")) Is Nothing Then UserForm1.Show

End Sub

Met vriendelijke groet,


Roncancio

 

[Esducsafe]

Roncancio,
Bedankt, code werkt perfect.
Met vriendelijke groet,
Esko