Run Macro if Cell Contains...

[eli_m]

Hi,

In my worksheet, I have Column U that sometimes has "Create Calendar Invite - DATEHERE" in the cell.

I want it so if any cell in Column U has "Create Calendar Invite*" in it and then I click that cell, it runs a Macro I have set up named 'CalendarInvite'

Is there a way to make a hyperlink to run a macro or does it have to be VBA?

I've tried the below with no success:

If Not Intersect(Selection, Range("U:U")) Is Nothing And Selection.Count = 1 Then
        If InStr(1, Cells(ActiveCell.Row, "U").Value, "Create Calendar Invite*") > 0 Then
            Call CalendarInvite
        End If
    End If

Full code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate ' Refresh for Grey Line
End If

If Not Intersect(Selection, Range("U:U")) Is Nothing And Selection.Count = 1 Then
        If InStr(1, Cells(ActiveCell.Row, "U").Value, "Create Calendar Invite*") > 0 Then
            Call CalendarInvite
        End If
    End If

'Check Timeout timer
checktime = True
Lastchange = Now()

End Sub

Thanks in advance!

 

[bebo021999]

No 2: Remove "Is Nothing"
No 3: Remove "End If"

 

[eli_m]

No 2: Remove "Is Nothing"
No 3: Remove "End If"

No 2:

Am I keeping the NOT? As my old code was:
If Not Intersect(Selection, Range("U:U")) Is Nothing And Selection.Count = 1 Then


No 3. This seems to work so I'll give it a test run for a few days

 

[bebo021999]

No 2: Just only:

If Target.Column=21 And Target.Count>1 then

to let Excel know the target will be / only be in column U.

 

[Skyybot]

Try

If Not Application.Intersect(Selection, Range("U:U")) Is Nothing And Selection.Count = 1 Then