Queste poche righe dovrebbero esserti utili.

codice:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, ActiveSheet.Range("A5:J54")) Is Nothing Then
    'MsgBox Target.Address
    'MsgBox Target.Column
    'MsgBox Target.Row
        If Target.Column = 3 Then
            MsgBox "modificato cella in colonna c"
        Else
            MsgBox "modificato cella in altra colonna"
        End If
 End If
End Sub