How to target Worksheet_change() on only a specific named column of a table in the sheet

[chx77]

Hi
Hope to have some advice on this problem. In worksheet "Work" I have a table named "tbl_work" which contains named columns "colA", "colB", "colC".... I want something to happen only when changes occur in "colB".

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = True
On Error GoTo Exitsub

Set tbl = Worksheets("Work").ListObjects("tbl_work")
If Target.Address = tbl.ListColumns("colB").Address Then
"something to happen"
End if
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
It has however no effect.
Thanks
chx77

 

[bobsan42]

Set cc = intersect(target, tbl.ListColumns("colB").range)
If not cc is nothing Then
... Something happens ...

 

[Fluff]

Another option

Set tbl = Worksheets("Work").ListObjects("tbl_work")
If Not Intersect(Target, tbl.ListColumns("colB")) Is Nothing Then
"something to happen"
End If

 

[Peter_SSs]

Another one

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("tbl_work[colB]")) Is Nothing Then
    'something
  End If
End Sub

 

[chx77]

Hi bobsan42, Fluff, and Peter_SSs
Thank you for your reply. I tried and found only Peter'_SSs code works in my case though bobsan42 and FLuff's codes totally make sense to me.
Thank you all.

​

 

[Fluff]

Glad we could help & thanks for the feedback.