Code to run if a cell in column A is changed

[dpaton05]

I have a table and if the first column has something changed, I want to run code directly after the update.

I have this code but it doesn't work

    If Selection.Count = 1 Then
        If Not Intersect(Target, Me.ListObjects("CSS_Quote").ListColumns(1).Range) Is Nothing Then
            MsgBox "hello"

        End If

It is in the

Private Sub Worksheet_Change(ByVal Target As Range)

sub for the worksheet where I want it.

What is wrong with my code or what do I need to do differently?

 

[Zot]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Columns("A")) Is Nothing Then
    MsgBox "Hello"
End If

End Sub

 

[Fluff]

In what way doesn't your code work?