Run Same VBA Macro Code On Multiple Sheets

[Paul_Hossler]

Try this

Option Explicit

Sub hideEmptyRows2b()
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("A1") = "Census Data" Then
            On Error Resume Next '   in case there are no blank cells
            ws.Range("A3:A120").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
            On Error GoTo 0
        End If
    Next

    Application.ScreenUpdating = True

End Sub