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