Hi Guys,
I am trying to close my active window without saving, using (SaveChange = False)
and I receive a compile error stating 'Cant find project or library' I am using Excel 2010 and it was working before the upgrade, any ideas?! Full Code below and thanks for your help in advance!
Sheets("RMS_Location_Multiple").Select
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"G:\Exposure Management\Projects\Systems Mapping\Contingency\ExactExtract\ImportFiles\Loc_" & Range("A2"), _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close (SaveChange = False)
Windows("Contingency_EDM_Gen_v1_testing.xlsm").Activate
Sheets("Multiple").Select
End Sub
I am trying to close my active window without saving, using (SaveChange = False)
and I receive a compile error stating 'Cant find project or library' I am using Excel 2010 and it was working before the upgrade, any ideas?! Full Code below and thanks for your help in advance!

Sheets("RMS_Location_Multiple").Select
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"G:\Exposure Management\Projects\Systems Mapping\Contingency\ExactExtract\ImportFiles\Loc_" & Range("A2"), _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close (SaveChange = False)
Windows("Contingency_EDM_Gen_v1_testing.xlsm").Activate
Sheets("Multiple").Select
End Sub