Need file to close automatically - and if posssible, after the close, folder be on screen

The following assigns the file a name and then asks user to select the folder in should be save in.
I want the file to save and close after they select the folder but it is giving the user the opportunity to save it.
Also - if possible - I would like for the screen, after the file is saved and closed to be the folder in which the file was saved.00000000
That possible??

Sub SaveAnyFile()
MsgBox "Next you will see the file name assigned to this payment, Following that you will be asked to select the lien folder of the Job Folder to which this invoice pertains."
Dim folder, name As String
On Error Resume Next
name = Sheet1.Range("C11").Value & " - " & Sheet1.Range("C13").Value & " - " & Sheet1.Range("C18").Value & ".xlsm"
MsgBox name
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Please select a folder"
.AllowMultiSelect = False
.Show
folder = .SelectedItems(1)
End With
name = Application.GetSaveAsFilename(InitialFileName:=folder & "\" & name, FileFilter:="Macro Enabled Workbook (*.xlsm), *.xlsm", Title:="Save As File")
ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
End Sub

Shell "explorer.exe " & folder, vbNormalFocus
ActiveWorkbook.Close

File closes and screen shows folder file was saved in which is super!!
BUT - after folder is selected by the user, the next thing up on the screen is the file and the folder -for the user to save.
I need that save to be taken care of by the macro - not an option for the user but don't see the change that needs to be made to make that happen.
Hope somebody does!!!

Use FileSave().

Regarding the much appreciated "Use FileSave()" - Thank you!!!
BUT - Exactly were does it go?
I had tried it before but did not find a place for it to fit.
Suggestions????
Thanks

I am not sure if you wanted to close the SaveAs file and the original. If not the later, delete the thisworkbook.close line.

Sub SaveAnyFile()
  Dim sName As String, sFolder As String
  
  MsgBox "Next you will see the file name assigned to this payment, Following that you will be asked to select the lien folder of the Job Folder to which this invoice pertains."

  On Error Resume Next
  sName = Sheet1.Range("C11").Value & " - " & Sheet1.Range("C13").Value & " - " & Sheet1.Range("C18").Value & ".xlsm"
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please select a folder"
    .AllowMultiSelect = False
    .Show
    sFolder = .SelectedItems(1)
  End With
  
  sName = sFolder & "\" & sName
  ActiveWorkbook.SaveAs sName, xlOpenXMLWorkbookMacroEnabled
  ActiveWorkbook.Close False
  ThisWorkbook.Close False
End Sub