Makro działające po wybraniu określonej komórki

Jak przypisać makro do entera, a dokładnie chodzi mi o to, by makro działało tylko wtedy, gdy aktywowana będzie dowolna komórka w kolumnie B.

Kod należy wpisać do odpowiedniego arkusza:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    nrkoloumny = 2 'numer kolumny - B=2

    If Target.Column = nrkolumny Then
        MsgBox "Działa!" 'tutaj Twoje Makro
    End If

End Sub

---