Perhaps you mean along the lines of:
![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:C10")) Is Nothing Then Exit Sub Rows("150:200").Hidden = Application.CountIf(Range("A10:C10"), "Yes") < 3 End Sub
Perhaps you mean along the lines of:
![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:C10")) Is Nothing Then Exit Sub Rows("150:200").Hidden = Application.CountIf(Range("A10:C10"), "Yes") < 3 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