HardCore XL VBA -> Save all sheets as new book

Welcome Guest ( Log In | Register )

Resend Validation Email

Posted in the last 24 hours: (Mouse-over to stop scrolling)

Recommended Sites: - VBA Express - JMT Forums - MrExcel - Ozgrid - MS Discussion Groups - John Walkenbach - Chip Pearson - Stephen Bullens Excel Page - xlDynamic (Bob Phillips) - JKP (Jan Karel Pieterse) - The Xcel Files (Ivan F Moala) - The Excel Maniacs (Gareth) - Scriptorium (Rembo) - ExcelKB (XL-Dennis) - and don't forget to register here - it's free!...

HardCore XL VBA -> johnske's Articles and Knowledge Base (Read Only Forums) -> Excel VBA Handy Code

Save all sheets as new book - no macros

Track this topic | Email this topic | Print this topic

johnske

Posted: January 28, 2008 09:15 am

HardCore MVP

Group: Site Admin
Posts: 454
Member No.: 2
Joined: March 08, 2006

CODE

Sub SaveSheetsAsBook()
'we want to save a copy of all the sheets
'in the current workbook as a different
'workbook - but without macros etc.
ThisWorkbook.Sheets.Copy

'the copied sheets now become the active workbook
With ActiveWorkbook
.SaveAs ActiveWorkbook.Path & "testme.xls" '< set your own path here
.Close
End With
End Sub

--------------------------------------------------------------------------------

If I irradiate my cat will that give it eighteen half-lives?

The major part of getting the right answer lies in asking the right question...

1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)

0 Members:

« Next Oldest | Excel VBA Handy Code | Next Newest »