Assuming this is a continuation of your previous question and the worksheets
you want this are all named SheetX (where X is a number from 1 to 215), then
this macro will do what you want...

Sub FreezePanes()
Dim X As Long
On Error GoTo CleanUp
For X = 1 To 215
Application.ScreenUpdating = False
Worksheets("Sheet" & X).Activate
With ActiveWindow
.SplitRow = 6
.SplitColumn = 4
' Omit the next line if you want to Split
' the Panes rather than to Freeze the Panes
.FreezePanes = True
End With
Next
CleanUp:
Application.ScreenUpdating = True
End Sub

--
Rick (MVP - Excel)


"mastersparky" wrote in message
...
I have an excel 2003 spreadsheet with 215 identical pages - is there a
macro
or formula to set the freeze pane function on all of them? The cell that
would need to be selected would be D6 on sheets1 to 215... Any help or
insight would be greatly appreciated

Thanks

mastersparky