Any Excel gurus that would mind if I PM'ed them with a problem I have in Excel? Dont wanrt to try and describe it in a thread....!!

Sub SetAllHeaders()
Dim wsheet As Worksheet
Dim basesheet As String
basesheet = "sheet1"
For Each wsheet In Worksheets
If wsheet.Name <> basesheet Then
With wsheet.PageSetup
.LeftHeader = Sheets(basesheet).PageSetup.LeftHeader
.CenterHeader = Sheets(basesheet).PageSetup.CenterHeader
.RightHeader = Sheets(basesheet).PageSetup.RightHeader
.LeftFooter = Sheets(basesheet).PageSetup.LeftFooter
.CenterFooter = Sheets(basesheet).PageSetup.CenterFooter
.RightFooter = Sheets(basesheet).PageSetup.RightFooter
End With
End If
Next wsheet
End Sub

Comment