Help with this code please !!!!!!!

[Ayo]

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

 

[Gary Keramidas]

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

 

[ozgrid.com]

With Sheets("Completions Summary").UsedRange
.Value = .Value
End With

 

[Gary Keramidas]

i personally stay away from using used range. i'd rather find it through
code. the one time it screws up could be costly. you may have other views,
this is just mine.

http://www.contextures.on.ca/xlfaqApp.html#Unused

 

[ozgrid.com]

So do I, but in the case of converting a Worksheet to values, it well
suited.