Glad it works well, I see no problem with it. You might like to add the
final statement to activate the and select a cell on the master sheet
(whatever that might be) with something like

Sheets("ALL").Activate
Range("A1").Select.

Put this after the Application.CutCopyMode = False statement.

--
Cheers
Nigel



"Celt" wrote in message
...

Nevermind.

I figured it out. This is what I used....

Sheets("ALL").Range("A3:J3").Copy
For Each wS In Worksheets
wS.Select
ActiveWindow.Zoom = 80
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

Seems to work without any glitches.

Thanks again for your help Nigel!

Cheers
Celt


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