Click on cell to trigger a macro:

[sooshil]

I have a table and I want to trigger a macro when I click on values in a specific column of that table.
I found a piece of code online to put as the worksheet code to accomplish this. The code is as follows:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myRng
    myRng = Selection.Address
  
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range(myRng)) Is Nothing Then
            Call SelectEmpRow
        End If
    End If
End Sub

The SelectEmpRow is the macro I want to run when a cell in the specific column of the table is clicked.
Now, I am having a problem. The code calls that macro anywhere in the sheet is clicked. I want the desired click area to be one specific column of the table.
What can we edit in the code to accomplish my requirement?
Sheet name : Sheet1
Table name : Table1
Column number : 5 (Where I want to click to trigger macro)
Column header : EmpName

Thank you.

 

[Michael M]

Maybe this ...UNTESTED

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column <> 5 Then Exit Sub
If Not Intersect(Target, Range("Table1")) Is Nothing Then
     Call SelectEmpRow
End If
End Sub

 

[Michael M]

Shorter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Table1")) Is Nothing Then Call SelectEmpRow
End Sub

 

[Fluff]

Another option

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Me.ListObjects("Table1").ListColumns(5).DataBodyRange) Is Nothing Then
      Call SelectEmpRow
   End If
End Sub

This will work on the 5th column of your table.

 

[sooshil]

Thank you so much Fluff

That worked.

 

[sooshil]

Thank you Michael M

Your first solution worked but second didn't. If I am not wrong, the second code is not specifying which column is the target column. Any way, I now have multiple solution to choose from. Thank you again.

 

[Michael M]

Glad WE could help.....and you manged to get a solution...