Hide a row if a selected cell has a specific text.

[ABabeNChrist]

What I’m trying to achieve is a toggle effect so that when the word “Blank” is selected from a data validation dropdown located on worksheet “Conclusion” in cell A7, It would then hide rows 5 and 6 and would also EntireRow.AutoFit A7, if another selection was made or cell left empty it would then unhide rows 5 and 6
I was trying something like this, but of course not right.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oCell As Range
    If Not Intersect(Target, Range("A5:A7")) Is Nothing Then
        For Each oCell In Intersect(Target, Range("A5:A20"))
            Application.ScreenUpdating = False
            Sheets("Conclusion").Range("A5:A6").EntireRow.Hidden = _
            (Application.CountA(Sheets("Conclusion").Range("A7")) = "Blank")
            'Sheets("Conclusion").Range("A7").EntireRow.AutoFit
            Application.ScreenUpdating = True
        Next oCell
    End If
End Sub

[HansV]

Does this do what you want?

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A7")) Is Nothing Then
        Application.ScreenUpdating = False
        Range("A5:A6").EntireRow.Hidden = (Range("A7") = "Blank")
        Range("A7").EntireRow.AutoFit
        Application.ScreenUpdating = True
    End If
End Sub

[ABabeNChrist]

PERFECT
Thank you Hans