We have written a macro that after running it crashes and closes out all excel files, after reopening the file it does not have any of the data saved in the document. We created this macro on Excel 2007 and we are trying to run it on Excel 2010 for PC and Excel 2011 for MAC.

Thanks

Sub SaveAs()

Dim myDate1 As Date ' Holds the current Date
Dim myMonth1 As String ' Holds the current Month as a numeric value
Dim myYear1 As Single ' Holds the current Year as a 2 didgit numeric value
Dim myDay1 As String ' Holds the current day of the month as a numeric value
Dim myHour1 As Single ' Holds the current day of the month as a numeric value
Dim myMin1 As Single ' Holds the current day of the month as a numeric value
Dim myfile4 As String

'Selects sheets to include in the Report Worksheet
Sheets(Array("2013 Report", "DailyTix Data", "The Uprising", "PreConference", _
"STATS", "States for Dashboard", "Church-Organization Attendance", "States MASTER")).Copy

'This code moves the selected sheets to a new Workbook and names it with todays date & time
myDate1 = Date
myMonth1 = Format(myDate1, "mm")

myYear1 = DatePart("YYYY", myDate1)
myDay1 = Format(myDate1, "dd")

myHour1 = Hour(Now)
myMin1 = Minute(Now)
myfile4 = "2013 Uprising Nightly Report - " & myMonth1 & myDay1 & Right(myYear1, 2) & ".xlsm"


If myMac = True Then
If myVer1 <= 14 Then
NewFileType = 51 '"Excel Files 2007 (*.xls), *.xls," for older versions of Excel (2007-2010)
Else: NewFileType = 52 '"Excel Files 2007 (*.xls), *.xls," for Mac version 2011
End If
NewFile = Application.GetSaveAsFilename(myfile4, , NewFileType)
Else
NewFileType = "Excel Files 2007 (*.xls), *.xls,"
NewFile = Application.GetSaveAsFilename(InitialFileName:=myfile4, fileFilter:=NewFileType)
End If

ActiveWorkbook.SaveAs Filename:= _
NewFile, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub