Export Excel sheets and send them as emails (Loop)

Thank you alansidman for your suggestion. I've attached an Excel file. Below is the code that I have so far (not much...). I haven't reached the loop and send emails part yet.

Sub Create_Files()

Dim MyDateStr As String
Dim wkbCurrent As Workbook
Dim wkbtemp As Workbook
Dim wkbtemp2 As Workbook
Dim MyLocation As String
Dim SheetName As String

Set wkbCurrent = ActiveWorkbook
MyDateStr = wkbCurrent.Sheets("Control").Range("F12")

ChDir "W:\Finance Analysis\Contsys2\DATA\aacorpfinance\_yr 2017\Expense reports\"
      If Len(Dir(MyDateStr, vbDirectory)) = 0 Then
        MkDir (MyDateStr)
    End If
    
    MyLocation = "W:\Finance Analysis\Contsys2\DATA\aacorpfinance\_yr 2017\Expense reports\"
    
SheetName = wkbCurrent.Sheets("Emails").Range("C2")

Set wkbtemp = Workbooks.Add

wkbCurrent.Sheets(SheetName).Cells.Select


With wkbtemp
wkbtemp.Sheets("Sheet1").Range("A1").PasteSpecial



wkbCurrent.Sheets("M & A").Copy
wkbtemp2.Sheets("Sheet2").Range("A1").Select
ActiveSheet.PasteSpecial Paste:=xlValues

Set wkbtemp = Sheets.Add(After:=Sheets(Sheets.Count))
End With
End Sub