can we copy our "sheetnames" too?

  • Thread starter Thread starter Martyn
  • Start date Start date
M

Martyn

Hi,
The below code copies the content of our workbook sheets seperately as new
workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format.
Can we also copy the used sheet names while copying?
TIA
 
Hi,
This is one of the mistakes not "many" people can do....8-)))
I was so tired list night that I forgot to paste it completely. Sorry Frank.
Here goes
=============================
Private Sub Workbook_Open()
' Can we add Application.DisplayAlerts = False here?
Set shOrig = ActiveSheet
For Each sh In ActiveWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs Filename:="C:\" & sh.Name & ".xls"
ActiveWorkbook.Close
Next sh
shOrig.Activate
End Sub
=============================
Martyn
 
You sure you didn't test against a workbook that had those vanilla names.

Your code worked ok for me.
 
Sorry Dave, I guess you are right. I think there was a problem with the test
file I was working on.
Now I've used the macro on another file and it works OK!.
Martyn
 
Glad you got it sorted out.

Sorry Dave, I guess you are right. I think there was a problem with the test
file I was working on.
Now I've used the macro on another file and it works OK!.
Martyn
Click to expand...
 
Back
Top