macro automatisch starten bij wijzigen 2 cellen

[shanna]

Hoi,

Ik heb in een werkblad de code neergezet dat als in cel a1 de waarde wijzigt er
een macro wordt gestart. Werkt geweldig, maar wat ik nu wil is dat als de waarde
in cel c3 wijzigt ook een macro automatisch wordt gestart. en dan krijg ik een foutmelding, ik heb het als volgt gedaan

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
act
End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c3")) Is Nothing Then
act
End If
End Sub

 

[snb]

Een werkblad bevat maar 1 keer de code voor Worksheet_Change
Gebruik dus

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1,C3")) Is Nothing Then act
End Sub