Excel macro to unfreeze multiple worksheets

This macro will automatically unfreeze all of the worksheets on an Excel spreadsheet . . .

Sub UnFreeze()

'Update 20140317

Dim Ws As Worksheet

Application.ScreenUpdating = False

For Each Ws In Application.ActiveWorkbook.Worksheets

Ws.Activate

With Application.ActiveWindow

.FreezePanes = False

End With

Next

Application.ScreenUpdating = True

End Sub

. . . this can be an important tool when you're processing lots of Excel files.

The source is this site:

http://www.extendoffice.com/documents/excel/1516-excel-freeze-unfreeze-panes-multiple-sheets.html