hide some rows in excel

hideRows.vba

Sub LoopThroughSheets()
    Dim ws As Worksheet
    Dim endDate As Date
    endDate = DateValue("2016/10/09")
    
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "汇总" Then
            For Each rw In ws.Rows
                If rw.Cells(1).Value = "" Then
                    Exit For
                End If
                If rw.Cells(1) <> "日期" And Not rw.EntireRow.Hidden Then
                    If CDate(rw.Cells(1).Value) < endDate Then
                        rw.EntireRow.Hidden = True
                    End If
                End If
            Next rw
        End If
    Next ws
End Sub