macro door op cel te klikken!

[hondel]

Ik heb een macro gemaakt om een UserForm op te starten als er een bepaalde cel wordt geselecteerd.
Het zou beter zijn als de macro bij klikken op de cel wordt geactiveerd.
Het zou met een knop kunnen maar dan moet ik er 250 maken en dat vind ik een beetje te veel.
Dit is wat ik nu heb:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 13 Then
  If Target.Row > 4 And Target.Row < 255 Then
    Blad1.Cells(7, 88) = Target.Row
    Actie.Show
  End If
End If
Application.ScreenUpdating = True

End Sub

Is het mogelijk om het met een muisklik te doen?

Jeroen

 

[snb]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect([M4:M255], Target) Is Nothing Then scherm.Show
End Sub

 

[JW at Work]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("MyRange").Address Then
Call UserForm1.Show
End If
End Sub

Ik gebruik deze code in m'n worksheet..

Hopelijk is dit wat je zoekt?

Greetz JW

 

[hondel]

Bedankt voor jullie reactie.

Na wat gepuzzel denk ik dat dit de beste oplossing is voor mij,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect([M4:M255], Target) Is Nothing Then
  Actie.Show
  [COLOR="Red"]Blad1.Cells(Target.Row, 12).Select[/COLOR]
End If

End Sub

Op deze manier Kan de cel twee keer achter elkaar gekozen worden.
Een bijkomend voordeel is dat de inhoud van de cel niet verandert kan worden.

Jeroen