Hi Stone,

I had a posed a similar question not so long ago, the responses
received led me to the following code (amended to use your details): -


Workbooks(argNewFile).WorkSheets(argSheetName).Cel ls.Copy
With Workbooks(argNewFile).Sheets(argSheetName).
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Wit

--
Message posted from http://www.ExcelForum.com