Segue exemplo:

        'Objetos do Excel
        Set oExcel = CreateObject("Excel.Application")
        oExcel.Visible = False
        oExcel.DisplayAlerts = False
        
        Set oWkb = oExcel.Workbooks.Add
        Set oWkb = oExcel.Sheets.Add
        oWkb.Name = NomePasta
        
        
        Application.DisplayAlerts = False
        
        oWkb.SaveAs Filename:=arqFatME, FileFormat:=xlExcel8
        
        Application.DisplayAlerts = True
        
        oExcel.Quit
        Set oWkb = Nothing
        Set oExcel = Nothing
        ActiveWorkbook.Save
        MsgBox "coloque a mensagem que você quer ", vbInformation, "Informação"