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


With Application.ActiveWindow

.FreezePanes = False

End With


Application.ScreenUpdating = True

End Sub

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

The source is this site: