Sub FormatSheets()
Dim wS As Worksheet

Sheets("ALL").Range("A3:J3").Copy
For Each wS In Worksheets

If UCase(wS.Name) < "ALL" Then
With wS.Range("A3")
.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End With
End If

Next
Application.CutCopyMode = False

End Sub

--
Cheers
Nigel



"Celt" wrote in message
...

TIA for any help.

I think this is a quick and easy question. I just can't find the
answer in my searching (probably cause I am not asking the right
question!!).

Part of one of my macros, formats 8 worksheet tabs (each with a
different name) exactly the same. I essentially copy the appropriate
header range from the master sheet containing all the data and then
paste special to each following sheet.

Here is the formatting code:

Sheets("ALL").Select
Range("A3:J3").Select
Selection.Copy

' I repeat this code for each following sheet with each sheet name
Sheets("Contribs").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:=False, transpose:=False
ActiveWindow.Zoom = 80

Is there an easier way to do this without having to select each sheet
and going through this pasting process? I am using the same cells in
every sheet.


--
Celt
------------------------------------------------------------------------
Celt's Profile:
http://www.excelforum.com/member.php...o&userid=19413
View this thread: http://www.excelforum.com/showthread...hreadid=548811