Hide and unhide rows based on cell value on another sheet

[lawrebw]

I have two sheets, Sheet1 and Sheet2

If F8 value in Sheet 1 is "No", then rows 39 to 43 in sheet 2 should hide

I currently have the following code on Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F8")) Is Nothing Then
If Target.Value = "No" Then
Worksheets("Sheet2").Rows("39:43").Hidden = True
End If
End If
End Sub

It will hide the rows when "No" is selected in a pull down for cell F8, however when "Yes" is selected it does not unhide the rows.


Any assistance would be greatly appreciated. Thanks!

 

[DanteAmor]

Use the following:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F8")) Is Nothing Then
        If Target.Value = "No" Then
            Worksheets("Sheet2").Rows("39:43").Hidden = True
        ElseIf Target.Value = "Yes" Then
            Worksheets("Sheet2").Rows("39:43").Hidden = False
        End If
    End If
End Sub

 

[lawrebw]

That worked perfect. Thanks DanteAmor!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.