i have the below code that has been working fine until today and can not figure out why any insight is appreciated
Windows("CMT6 Master.xlsm").Activate
Sheets("PRESALE LOANS - FNMA").Select
Workbooks.Open Filename:= _
"\\Fs1prod\cmt6\-- DAILY REPORTING --\Team - Daily Review\JENNIFER.xlsx" _
, ReadOnly:=True
Sheets("Pre-sale").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("CMT6 Master.xlsm").Activate
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, OPERATION:=xlNone, SKIPBLANKS _
:=False, Transpose:=False
Windows("JENNIFER.xlsx").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows("CMT6 Master.xlsm").Activate
Sheets("PRESALE LOANS - FNMA").Select
Windows("CMT6 Master.xlsm").Activate
Sheets("PRESALE LOANS - FNMA").Select
Workbooks.Open Filename:= _
"\\Fs1prod\cmt6\-- DAILY REPORTING --\Team - Daily Review\JENNIFER.xlsx" _
, ReadOnly:=True
Sheets("Pre-sale").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("CMT6 Master.xlsm").Activate
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, OPERATION:=xlNone, SKIPBLANKS _
:=False, Transpose:=False
Windows("JENNIFER.xlsx").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows("CMT6 Master.xlsm").Activate
Sheets("PRESALE LOANS - FNMA").Select