Attribute VB_Name = "FreezeHeadersAllSheets"
' Freezes the top row on every worksheet at once.
Sub FreezeHeaderAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ws.Range("A2").Select
        ActiveWindow.FreezePanes = True
    Next ws
    ThisWorkbook.Worksheets(1).Activate
End Sub