Kør automatisk makro

Er det kun når en bestemt celle ændres ?

Jep

Prøv med denne her:
Skal indsætte i kodemodulet for det faneblad hvori cellen er

-----------
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "A1" Then
        MsgBox "Fingrene væk fra A1!"
    End If
End Sub
------------------

Tak....det virker..lige et hurtigt ?
Hvordan tildeler jeg en bestemt celles værdi en variabel?

Variabel = Cells(2, 2).Value

I dette her tilfælde "B2"

F.eks:

Variabel = Sheets(2).Cells(1, 2).Value   

eller

Variabel = Sheets(1).[B2]