Sub ExportToFolder()
Dim ReportDate As String: ReportDate = Worksheets("Data Stub").Range("ReportDate")
Dim PeriodRunFolder As String: PeriodRunFolder = Replace(ReportDate, "/", ".")
Dim NewWB As Workbook
Dim FullFilePath As String
Call MakeMyFolder(ExportFolder & PeriodRunFolder)
'Array of Worksheets to Export
Worksheets("Pay Stubs").Copy
Set NewWB = ActiveWorkbook
FullFilePath = ExportFolder & PeriodRunFolder & ".xlsx"
NewWB.SaveAs FullFilePath
NewWB.Close SaveChanges:=False
End Sub