0 leden en 2 gasten bekijken dit topic.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1, C3, G15")) Is Nothing Then MsgBox "De nieuwe waarde van cel " & Target.Address(0, 0) & " is " & Target.Value End IfEnd Sub