Attribute VB_Name = "FreezeHeadersAllSheets"
' Congela la fila superior en todas las hojas a la vez.
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