Perhaps:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target,Range("A3")) Is Nothing Then
        Rows(15).Hidden = UCase(Range("A3")) = "CONSOLIDATED"
    End If
End Sub