Excel 2002, WinXP
The code:

Sub Test
ActiveSheet.Copy
ActiveWorkbook.Name = NewName
End Sub

Creates a new workbook with the above active sheet. I want to name the new
workbook the variable NewName but the code:
ActiveWorkbook.Name = NewName
produces an error because the file is Read Only.
How can I change the Read Only attribute of the new file so that I can
change its name?
Thanks for your help. Otto

Sub Test
sPath = Activeworkbook.Path
if Right(sPath,1) < "\" then sPath = sPath & "\"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= sPath & NewName & ".xls"
End Sub

The name of a workbook is its filename.


--
Regards,
Tom Ogilvy


"Otto Moehrbach" wrote in message
...
Excel 2002, WinXP
The code:

Sub Test
ActiveSheet.Copy
ActiveWorkbook.Name = NewName
End Sub

Creates a new workbook with the above active sheet. I want to name the
new
workbook the variable NewName but the code:
ActiveWorkbook.Name = NewName
produces an error because the file is Read Only.
How can I change the Read Only attribute of the new file so that I can
change its name?
Thanks for your help. Otto

Thanks Tom. That's clear and concise. Otto
"Tom Ogilvy" wrote in message
...
Sub Test
sPath = Activeworkbook.Path
if Right(sPath,1) < "\" then sPath = sPath & "\"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= sPath & NewName & ".xls"
End Sub

The name of a workbook is its filename.


--
Regards,
Tom Ogilvy


"Otto Moehrbach" wrote in message
...
Excel 2002, WinXP
The code:

Sub Test
ActiveSheet.Copy
ActiveWorkbook.Name = NewName
End Sub

Creates a new workbook with the above active sheet. I want to name the
new
workbook the variable NewName but the code:
ActiveWorkbook.Name = NewName
produces an error because the file is Read Only.
How can I change the Read Only attribute of the new file so that I can
change its name?
Thanks for your help. Otto