This works for me.
![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCell As Range Set KeyCell = Range("A3") If Not Application.Intersect(KeyCell, Range(Target.Address)) Is Nothing Then If KeyCell.Value = "Consolidated" Then Rows("27:28").Select Selection.EntireRow.Hidden = True Range("a3").Select Else If KeyCell.Value <> "Consolidated" Then Rows("27:28").Select Selection.EntireRow.Hidden = False Range("a3").Select End If End If End If End Sub
Bookmarks