are you sure you have the sheet name correct?

no need to select, i'd use something like this:

With Worksheets("Completions Summary").Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("A4").Select
End With

--


Gary Keramidas
Excel 2003


"Ayo" wrote in message
...
I have use the code set below in other files but in this new file I am
getting an error on "Cells.Select". "Select method of Range class failed"
Any idea whats going on?

Sheets("Completions Summary").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A4").Select