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


--
Regards
Dave Hawley
www.ozgrid.com
"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