Control button to create a one time folder, save with date and send work sheet to email

Karol-

Before attaching a file try using the VBA code below (You have Additional End Sub and Private Sub XXXX()  statements that needed to be removed.  They need to be paired together.)  If this code won't work then go ahead and use my below instructions to attach the file. :

Sub AFolderVBA2()

 Dim i As Integer
 
 For i = 1 To 5
 MkDir "C:\Users\kapo\Desktop\Suisca Catering\Weekly food Order\" & Range("A" & i)
 Next i

End Sub

Sub Save()
  ActiveWorksheet.SaveAs Filename:="C:\Users\kapo\Desktop\Catering\Weekly food Order " & Format(Now(), "DD-MM-YYYY") & ".xlsm", FileFormat _
 :=xlOpenXMLWorksheetkMacroEnabled, CreateBackup:=False

End Sub

Sub SendMail()

 Dim OutlookApp As Object
 Dim OutlookMail As Object
 Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 
 
 On Error Resume Next
 
 With OutlookMail
 .To = "campboss@suisca.com"
 .CC = ""
 .BCC = ""
 .Subject = "Weekly Order Note"
 .Body = "Good Day to All, Please find Attached order sheet for the week. Please Acknowledge reciept of the attached document, thank you. Best Regards, Camp Boss"
 .Attachments.Add Application.ActiveWorksheet.FullName '
 .Display
 
 End With
 
End Sub

Private Sub CommandButton4_Click()

 Range("G12").Copy
 Range("G2666").PasteSpecial Paste:=xlPasteFormats
 
 'Copy and PasteSpecial a between worksheets
 Worksheets("Sheet1").Range("A2").Copy
 Worksheets("Sheet4").Range("A2").PasteSpecial Paste:=xlPasteFormulas
 
 'Copy and PasteSpecial between workbooks
 Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy
 Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteFormats
 
 'Disable marching ants around copied range
 Application.CutCopyMode = False

End Sub

Private Sub CommandButton5_Click()
Dim sbClearCellsOnlyData()
Range("G12:G2666").ClearContents
End Sub


Private Sub CommandButton7_Click()

Application.Dialogs(xlDialogPrint).Show

End Sub

Try saving the file as an .xlsx.  Then post it to the forum along with the code you have written.  The forum doesn't allow you to attach macro enabled workbooks because of security risks.