Freeze Pane Macro

[simplymidori]

Is there a macro that can freeze pane after the first row in all active
sheets except for worksheet "Tracker".

Any help would be greatly appreciated. I tried selecting ALL worksheets
except for tracker... Did freeze pane and it only applied to the first tab.
Is this normal?

 

[Gord Dibben]

Sub freeze()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Tracker" Then
ws.Activate
ActiveSheet.Range("B2").Select
ActiveWindow.FreezePanes = True
End If
Next ws
End Sub


Gord Dibben MS Excel MVP