Private Sub Worksheet_Calculate()
Dim Sel As Range
Sheets("Menu").Select
Set Sel = Range("J26")
If Sel.Value = "" Then
Exit Sub
Sheets("BS.1").Select
Rows("14:198").Select
Selection.EntireRow.Hidden = False
Columns("E:V").Select
Range("E14").Activate
Selection.EntireColumn.Hidden = False
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Dim i As Long, j As Long
For j = 20 To 200
If Application.CountBlank(Cells(j, 6).Resize(1, 22)) = 22 Then _
Rows(j).Hidden = True
Next j
For i = 6 To 18
If Application.CountBlank(Cells(17, i).Resize(1, 22)) = 22 Then _
Columns(i + 1).Hidden = True
Next i
Application.EnableEvents = True
Sheets("Menu").Select
End If
End Sub