File not saving in folder user selects - and not closing.

[ILoveStMartin]

Sub SaveAnyFile()
MsgBox "Next you will be asked to select the job folder. You will not be asked to name the file as that will be automatic so there wil be continuity in the file names."
Dim folder, name As String
On Error Resume Next
name = ThisWorkbook.name
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Please select a folder"
.AllowMultiSelect = False
.Show
folder = .SelectedItems(1)
End With
ThisWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & Sheet1.Range("c11") & " - " & Sheet1.Range("C13") & " - " & Sheet1.Range("$C18") & ".xlsm"
Workbook.Close
End Sub

[Kenneth Hobson]

ActiveWorkbook.Close

[ILoveStMartin]

Thanks for solving the Not Closing problem- sometimes I miss the obvious