Hi,


Can someone help me out with the code below. This code runs on a Mac with Excel 2011. After the code runs without error, when attempting to perform a Save As Excel crashes.


Any help is greatly appreciated!



Application.ScreenUpdating = False

Dim FN As String

Filename = Range("Path")
'Filename = Application.GetSaveAsFilename(filefilter:="Excel Files (*.xlsm),*.xlsm")
FN = Right(Filename, 19)

On Error GoTo Err1

MsgBox "You selected " & Filename
If Filename = False Then
Exit Sub
Else
Workbooks.Open Filename:=Filename

End If

Workbooks(FN).Sheets("By Week").Activate
Range("A7").CurrentRegion.Copy
ThisWorkbook.Worksheets("KPI Report").Range("A6").PasteSpecial

Workbooks(FN).Sheets("Survey").Activate
Range("A4").CurrentRegion.Copy
ThisWorkbook.Worksheets("Sheet1").Range("A3").PasteSpecial

ThisWorkbook.Worksheets("Charts").Activate
Range("A60:A64").Copy
Range("E60").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Workbooks(FN).Close SaveChanges = False

Sheets("Charts").Activate

Application.ScreenUpdating = True

Exit Sub

Err1:
MsgBox "File Not Found! Please check File Path and File Name and try again."
End Sub