two macros

[daidipya]

I have the following code copy pasted in the "input-assumptions" with
this the macro is running quite well.

Sub HideRows1()
Dim Rng As Range
Set Rng = Sheets("input-assumptions").Range("E88")
If Rng.Value = "Yes" Then
Rows("89:89").EntireRow.Hidden = False
Range("E89").Select
ElseIf Rng.Value = "No" Then
Rows("89:89").EntireRow.Hidden = True
Range("E88").Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 88 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
HideRows1
End Sub

i have also another code as follows, which has been copy pasted belwo
the above code

Sub HideRows2()
Dim Rng As Range
Set Rng = Sheets("input-assumptions").Range("E89")
If Rng.Value = "Yes" Then
Rows("90:121").EntireRow.Hidden = False
Range("E89").Select
ElseIf Rng.Value = "No" Then
Rows("90:121").EntireRow.Hidden = True
Range("E89").Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 89 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
HideRows2
End Sub

However if i choose "YES" or "NO" in any of the E88 and E89 cells i get
a Complie error and ambigious name detetected: worksheet change

how to run both the macros without having any error

please help me

 

[Trevor Shuttleworth]

You can only have one Worksheet_Change event:

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 88 And Target.Column = 5 Then
HideRows1
End If
If Target.Row = 89 And Target.Column = 5 Then
HideRows2
End If
End Sub

Regards

Trevor