Save As VBA

[tawoodwa]

I need this save as code to keep the workbook that I am working in open, and not open up the new workbook. currently it opens up the new file. I guess I essentially want to save the document as a new document, and then close it and reopen the old one.

Sub SaveAsName()Dim save_as As Variant
Dim file_name As String
Dim ProgramName As String
file_name = ProgramName
    ' Get the file name.
    save_as = Application.GetSaveAsFilename(file_name, _
        FileFilter:="Excel Files,*.xlsx,All Files,*.*")
    ' See if the user canceled.
    If save_as = False Then Exit Sub
    ' Save the file with the new name.
    Application.DisplayAlerts = False
    If LCase$(Right$(save_as, 4)) <> ".xlsx" Then
        file_name = save_as & ".xlsx"
    End If
    ActiveWorkbook.SaveAs Filename:=save_as, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    
End Sub

 

[JoeMo]

Try using SaveCopyAs rather than SaveAs.

 

[tawoodwa]

Try using SaveCopyAs rather than SaveAs.

That gives me a compile error: Named argument not found

 

[JoeMo]

That gives me a compile error: Named argument not found

Post your code and indicate which line throws the error.