Sub CloseRows()

Application.ScreenUpdating = False
Application.EnableEvents = False

Dim ws As Worksheet

Sheets("Sheet 1").Select

For Each ws In ThisWorkbook.Worksheets
With ws
..Unprotect Password:="*****"
'.Columns("A:W").AutoFit

For i = 31 To 1000
..Cells.EntireRow.Hidden = False
If .Cells(i, 1).Value = "" Then
..Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End With
Next ws



'For Each ws In ThisWorkbook.Worksheets
'ws.Protect Password:="*****", AllowFormattingCells:=True,
AllowFormattingColumns:=True, DrawingObjects:=False, Contents:=True
'Next ws

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

But now it does nothing. I think I may have changed a setting?

Help. this is silly.