Sub ExportCopy()
Dim wb As New Workbook
Dim SaveFolder1 As String: SaveFolder1 = "M:\all\Exports Copied Sheets\"
Dim FileName As String
Dim FileDateTime As String: FileDateTime = Format(Now, "m-d-yy hh-mm")
Dim FullFileName As String
Dim ReportDoc As String: ReportDoc = Worksheets("Variables").Range("ReportDocument")
FileName = "Time clock " & ReportDoc
FullFileName = Replace(FileName, ".xlsx", "") & " (" & FileDateTime & ")"
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7")).Copy
'Save and Close New WB
wb.SaveAs SaveFolder1 & FullFileName & ".xlsx", xlOpenXMLWorkbook
wb.Close SaveChanges:=False
DoEvents
'Back to Main WB
ThisWorkbook.Activate
MsgBox "Process Complete"
End Sub