Sub Worksheet_Activate()
If (Range("b8")) = "" Then Rows(8).EntireRow.Hidden = True
IF (Range("b8")) <> "" Then Rows(8).EntireRow.Hidden = False
If Trim(Range("b9")) = "" Then Rows(9).EntireRow.Hidden = True
If Trim(Range("b9")) <> "" Then Rows(9).EntireRow.Hidden = False
If Trim(Range("b10")) = "" Then Rows(10).EntireRow.Hidden = True
If Trim(Range("b10")) <> "" Then Rows(10).EntireRow.Hidden = False
If Trim(Range("b11")) = "" Then Rows(11).EntireRow.Hidden = True
If Trim(Range("b11")) <> "" Then Rows(11).EntireRow.Hidden = False
If Trim(Range("b12")) = "" Then Rows(12).EntireRow.Hidden = True
If Trim(Range("b12")) <> "" Then Rows(12).EntireRow.Hidden = False
If Trim(Range("b13")) = "" Then Rows(13).EntireRow.Hidden = True
If Trim(Range("b13")) <> "" Then Rows(13).EntireRow.Hidden = False
If Trim(Range("b14")) = "" Then Rows(14).EntireRow.Hidden = True
If Trim(Range("b14")) <> "" Then Rows(14).EntireRow.Hidden = False
If Trim(Range("b15")) = "" Then Rows(15).EntireRow.Hidden = True
If Trim(Range("b15")) <> "" Then Rows(15).EntireRow.Hidden = False
If Trim(Range("b16")) = "" Then Rows(16).EntireRow.Hidden = True
If Trim(Range("b16")) <> "" Then Rows(16).EntireRow.Hidden = False
If Trim(Range("b17")) = "" Then Rows(17).EntireRow.Hidden = True
If Trim(Range("b17")) <> "" Then Rows(17).EntireRow.Hidden = False
If Trim(Range("b18")) = "" Then Rows(18).EntireRow.Hidden = True
If Trim(Range("b18")) <> "" Then Rows(18).EntireRow.Hidden = False
If Trim(Range("b19")) = "" Then Rows(19).EntireRow.Hidden = True
If Trim(Range("b19")) <> "" Then Rows(19).EntireRow.Hidden = False
end sub
|