Makro aus einer Zelle aufrufen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then MsgBox _
"Ein Wert in Spalte B hat sich geändert !!!"
End Sub