Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/Splitbook.bas

Created July 21, 2017 10:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/566b53e05f19fa5933b41e429af2b77f to your computer and use it in GitHub Desktop.
Save ndthanh/566b53e05f19fa5933b41e429af2b77f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Splitbook.bas
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment