Tilknyt makro til en celler

højreklik på fanebladet for dit ark, og vælg "Vis programkode"
indsæt følgende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        MsgBox "Kald din makro her istedet for denne MsgBox!"
    End If
End Sub


Ret B5 til din celle og ret linien med MsgBox til at kalde din makro.

Accept af svar