Sorry Frank & 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

"Frank Kabel" wrote in message
...
Hi
Dave provided already a solution for this in your other thread

--
Regards
Frank Kabel
Frankfurt, Germany

"Martyn" schrieb im Newsbeitrag
...
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

"Frank Kabel" wrote in message
...
Hi
no code :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Martyn wrote:
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