Multiple Worksheet Change events

[winspear]

Hi

I need two worksheet change events in a worksheet

This is what I have so far (code tested and works fine) ...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Answer As String

Set isect = Application.Intersect(Target, Range("designStatus"))

If Not isect Is Nothing Then

[code here]

End Sub

However, I need another worksheet change event added for when an unrelated cell changes - this would run different code.

Can this be done?

Thanks

 

[Hermanito]

You can only have one Change eventhandler per sheet. You will need to add code to determine which type of cell it is and act accordingly.
Basically add an 'If Then ... ElseIf Then ... Endif' structure around the whole. Your first condition could be the intersect you have now, if that is not applicable, add a second condition (e.g. Target.Column=value), etc...