ブックに名前を付けて保存するVBA

Dim saveFileName As String
saveFileName = Application.GetSaveAsFilename("デフォルトのファイル名", FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*")
If saveFileName <> "False" Then
    ActiveWorkbook.SaveAs Filename:=saveFileName, FileFormat:=xlNormal
End If

ファイル形式	FileFormatの引数
xlsx	xlWorkbookDefault
xlsm	xlOpenXMLWorkbookMacroEnabled
xls	xlWorkbookNormal
csv	xlCSV
txt	xlText