Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B4") = "" Then
Rows("5:15").Hidden = True
If Range("B5") = "" Then
Rows("6:15").Hidden = True
If Range("B6") = "" Then
Rows("7:15").Hidden = True
If Range("B7") = "" Then
Rows("8:15").Hidden = True
If Range("B8") = "" Then
Rows("9:15").Hidden = True
If Range("B9") = "" Then
Rows("10:15").Hidden = True
If Range("B10") = "" Then
Rows("11:15").Hidden = True
If Range("B11") = "" Then
Rows("12:15").Hidden = True
If Range("B12") = "" Then
Rows("13:15").Hidden = True
Else
Rows("5:15").Hidden = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Bookmarks