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
Met vriendelijke groet,
Esko
Code:
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