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
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
My Recommended Reading:
Volatility
Sumproduct & Arrays
Pivot Intro
Email from XL - VBA & Outlook VBA
Function Dictionary & Function Translations
Dynamic Named Ranges
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks