What is the correct code to save the current workbook (Book1.xls) as
(Book1A.xls)

Thanks for the help.

Hi Ronbo,

Try this:

' Get the filename with path
sName = ThisWorkbook.FullName
' Add an 'A' to the end of the filename
sName = Left(sName, Len(sName) - 4) & "A.xls"
'Save under new name
ThisWorkbook.SaveAs sName

Hoop This Helps,


Executor

Thanks. Exactly what I was looking for.

"Executor" wrote:

Hi Ronbo,

Try this:

' Get the filename with path
sName = ThisWorkbook.FullName
' Add an 'A' to the end of the filename
sName = Left(sName, Len(sName) - 4) & "A.xls"
'Save under new name
ThisWorkbook.SaveAs sName

Hoop This Helps,


Executor