Trying to reference a range of cells inside of a table and call a function OnChange

[mongoose]

Hello,

I am trying to call a function anytime a cell changes within a certain column inside of a table. But, I need to call that column by it's column name and not index. Here is the code I have so far but I keep getting an "Object Required" error.

Here is my code..


Private Sub Worksheet_Change(ByVal Target As Range) 'Instansiate ListObject
Dim tbl As ListObject
Set tbl = Worksheets("Prod. Data").ListObjects("Table3")

Dim KeyCells As ListColumns
Set KeyCells = tbl.ListColumns("Shipping Method").Range.Select


' The variable KeyCells contains the cells that will cause an alert when they are changed.
'Set KeyCells = Range("A1:C10")


If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then


' Display a message when one of the designated cells has been changed. Place your code below.
MsgBox "Cell " & Target.Address & " has changed."


End If
End Sub

Thank you everyone.

[大灰狼1976]

Hi mongoose!
something like below:

Private Sub Worksheet_Change(ByVal Target As Range) 'Instansiate ListObject
Dim tbl As ListObject
Set tbl = Worksheets("Prod. Data").ListObjects("Table1")
Dim KeyCells As Range
Set KeyCells = tbl.ListColumns("Shipping Method").Range

' The variable KeyCells contains the cells that will cause an alert when they are changed.
'Set KeyCells = Range("A1:C10")

If Not Application.Intersect(KeyCells, Worksheets("Prod. Data").Range(Target.Address)) Is Nothing Then

' Display a message when one of the designated cells has been changed. Place your code below.
MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub