Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Application.EnableEvents =
False
With
Target
If
InStr(1, .Address,
":"
) = 0
Then
OnChange1 Target, .Row, .Column, .Value
OnChange2 Target, .Row, .Column, .Value
End
If
End
With
Application.EnableEvents =
True
End
Sub