Hi,
I am using the following code to split one workbook with multiple worksheets into - many workbooks.
Sub SplitSheets()
Dim W As Worksheet
For Each W In Worksheets
W.SaveAs ActiveWorkbook.Path & "/" & W.Name
Next W
End Sub
The problem i have is this takes several minutes to run and also produces a file size which appears significantly too large (e.g approx 2MB when the original is only a few hundred k).
Could i ask for some help optimising the code please!
thanks,
Hamish
I am using the following code to split one workbook with multiple worksheets into - many workbooks.
Sub SplitSheets()
Dim W As Worksheet
For Each W In Worksheets
W.SaveAs ActiveWorkbook.Path & "/" & W.Name
Next W
End Sub
The problem i have is this takes several minutes to run and also produces a file size which appears significantly too large (e.g approx 2MB when the original is only a few hundred k).
Could i ask for some help optimising the code please!
thanks,
Hamish