Option Explicit
Sub testme()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Select
wks.Range("a1").Select 'so A1 is visible in the top left
wks.Range("d16").Select
ActiveWindow.FreezePanes = True
Next wks
End Sub




mastersparky wrote:

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

--

Dave Peterson