VBA Save a copy of file with similar filename

[LookingForHazyDays]

I have an Excel file which currently uses vba to delete stuff and then save what's left as a new file with the new filename written into the macro. Like this:

ActiveWorkbook.SaveAs Filename:="x:\Folder Name\Client1_Client2_ClientCopy.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
End Sub

Instead, what want the vba to do is save the file as the current file name with "Client Copy" on the end.
How do I do this please?

 

[Fluff]

Hi & welcome to MrExcel.
How about

With ActiveWorkbook
   .SaveAs FileName:="x:\Folder Name\" & Replace(.Name, ".xlsm", "") & "_ClientCopy.xlsm", _
   FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With

 

[Joe4]

Welcome to the Board!

Try something like this:

    Dim fname As String
    fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & "Client Copy.xlsm"
    
    ActiveWorkbook.SaveAs Filename:="x:\Folder Name\" & fname, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Application.DisplayAlerts = False

 

[LookingForHazyDays]

Hi & welcome to MrExcel.
How about

With ActiveWorkbook
   .SaveAs FileName:="x:\Folder Name\" & Replace(.Name, ".xlsm", "") & "_ClientCopy.xlsm", _
   FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With

Super, works a treat, thanks very much!

 

[LookingForHazyDays]

Welcome to the Board!

Try something like this:

    Dim fname As String
    fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & "Client Copy.xlsm"
   
    ActiveWorkbook.SaveAs Filename:="x:\Folder Name\" & fname, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Application.DisplayAlerts = False

Super too, also works, thanks very much!

 

[Fluff]

Glad we could help & thanks for the feedback.