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