Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim X As Byte
Columns(1).EntireRow.Hidden = False
For X = 2 To 9
If Cells(X, 1) < Now And Application.WorksheetFunction.CountA(Range("B" & X & ":E" & X)) <> 4 Then
Rows(X).EntireRow.Hidden = True
End If
Next X
End Sub