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