Aktiver makro når celle forlades

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cellactivatetest As Range
   
    Set cellactivatetest = Range("A1")
   
    If Not Application.Intersect(cellactivatetest, Range(Target.Address)) Is Nothing Then
            MsgBox "Celle " & Target.Address & " er ændret " '
       
    End If
End Sub

Hvor meget af makroen skal jeg bruge?

Har fundet ud af det - Tak!