Run VBA on cell click

[joshuafournier]

Good Morning,

I have a table that in column "O" if you click the cell it runs a macro. the issue I have is if I sort the table it also triggers the code.... is there a way around this?

Private Sub Worksheet_SelectionChange(ByVal target As Range)

    If Selection.Count = 1 Then
        If Not Intersect(target, Range("O4:O9999")) Is Nothing Then
        ActiveCell.Value = "Activating"
   Call LaunchIT("RedlineAssy")
        End If
    End If

 

[mumps]

Untested:

Private Sub Worksheet_SelectionChange(ByVal target As Range)
    If target.CountLarge > 1 Then Exit Sub
    If Intersect(target, Range("O4:O9999")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    target.Value = "Activating"
    Call LaunchIT("RedlineAssy")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[joshuafournier]

That worked amazing thank you

 

[mumps]

You are very welcome.