Combine multiple "Private Sub Worksheet_Change(ByVal Target As Range)"

[sanky9192]

Hi,

I need to combine following codes which will change the attributes of the cell as well as worksheet.
And I need it in single worksheet.

Formula 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I6").Value = "NO" Then
Rows("52:55").EntireRow.Hidden = True
ElseIf Range("I6").Value = "YES" Then
Rows("52:55").EntireRow.Hidden = False
End If
Exit Sub

Formula 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I6").Value = "Yes" Then
Worksheets("Sheet2").Visible = True
Else
Worksheets("Sheet2").Visible = False
End If
End Sub



Thanks in advance.

 

[Takae]

Hope this helps.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("I6").Value
    Case "NO"
        Rows("52:55").EntireRow.Hidden = True
        Worksheets("Sheet2").Visible = False
    Case "YES"
         Rows("52:55").EntireRow.Hidden = False
        Worksheets("Sheet2").Visible = True
    Case Else
        Worksheets("Sheet2").Visible = False
End Select
End Sub

 

[sanky9192]

Yeah , it worked.

But I've used other method,

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H6").Value = "NO" Then
Rows("52:57").EntireRow.Hidden = True
Worksheets("Without GGH").Visible = True
Worksheets("GGH").Visible = False

ElseIf Range("H6").Value = "YES" Then
Rows("52:57").EntireRow.Hidden = False
Worksheets("Without GGH").Visible = False
Worksheets("GGH").Visible = True

End If


End Sub