On Sat, 30 Sep 2006, Chris wrote:

The following code will need to be performed on each tab except the Data tab:

Range("C5:EK5").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("C11:EK11").Select
Application.CutCopyMode = False
Selection.Copy
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("C27:EK27").Select
Application.CutCopyMode = False
Selection.Copy
Range("C28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

When I see glurpy code like this I know it was recorded. I'd simplify it
to:

Range("C5:EK5").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
Range("C11:EK11").Copy
Range("C12").PasteSpecial Paste:=xlPasteValues
Range("C27:EK27").Copy
Range("C28").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Much easier to read.

Don <www.donwiss.com (e-mail link at home page bottom).