View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
 
Posts: 3,514
Default how to copy worksheet to new workbook with values only

Andrew submitted this idea :
On Jul 7, 12:20*pm, GS wrote:
Try...

Sub CopySheetToNewWkb()
* Sheets("PO").Copy 'becomes active wkb/wks
* With ActiveSheet.UsedRange
* * .Value = .Value
* End With 'ActiveSheet.UsedRange
* With ActiveWorkbook
* * .SaveAs "FullPathAndFilename"
* * .Close
* End With
End Sub

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc


Thanks. That's quite a bit faster than my code.

Andy


You're very welcome! Always glad to be of help...

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc