Create New WB, Not Read Only

[Otto Moehrbach]

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

 

[Tom Ogilvy]

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.

 

[Otto Moehrbach]

Thanks Tom. That's clear and concise. 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.