Excel - Macro para crear y "guardar como..." nuevo libro

Sub CrearSalvarLibro()

Dim strNombreLibro As String

Dim strTipoArchivo As String

strTipoArchivo = "Excel Files 2007 (*.xlsx), *.xlsx"

Workbooks.Add

strNombreLibro = Application.GetSaveAsFilename(FileFilter:=strTipoArchivo)

ActiveWorkbook.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal, CreateBackup:=False

End Sub

Dim NombreLibro As Variant

NombreLibro = Application.GetSaveAsFilename(FileFilter:=strTipoArchivo)

If NombreLibro <> False Then

   ActiveWorkbook.SaveAs Filename:=CStr(NombreLibro), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End If