Worksheet Change Event based on value of a cell

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