![]()
IF Sheets("S-57 (Special Req)").Range("J6").Value=0 Then Exit Sub
![]()
IF Sheets("S-57 (Special Req)").Range("J6").Value=0 Then Exit Sub
Ben Van Johnson
Thanks... but where in the code do I put that?.... can you please use put that in the code I provided???
---------- Post added at 03:01 PM ---------- Previous post was at 02:54 PM ----------
Never mind I figured it out, this version works great! Thanks again!
![]()
Private Sub Worksheet_Activate() IF Sheets("S-57 (Special Req)").Range("J6").Value=0 Then Exit Sub Dim rRow As Range Dim rRowRange As Range Dim rCell As Range Dim bHide As Boolean ' change as you need Set rRowRange = Intersect(UsedRange, Range("B9:B50")) ActiveWindow.DisplayZeros = False Application.ScreenUpdating = False For Each rRow In rRowRange.Rows bHide = False For Each rCell In rRow.Cells If Len(rCell.Value) = 0 Then bHide = True Exit For End If Next rCell rRow.EntireRow.Hidden = bHide Next rRow Application.ScreenUpdating = True End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks