![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B28:B46")) Is Nothing Then If Target.Value = "" Then Target.Offset(1).EntireRow.Hidden = True Else Target.Offset(1).EntireRow.Hidden = False End If End If End Sub
![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B28:B46")) Is Nothing Then If Target.Value = "" Then Target.Offset(1).EntireRow.Hidden = True Else Target.Offset(1).EntireRow.Hidden = False End If End If End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks