Error when updating excel sheet from Macros........? - vba

Question

I have an excel sheets with Macros that updates information like timelines, completion dates, etc.. from other excel files. It was working fine until I got this: Pop up which I just yes and everything is fine but it now opens up a dialog box and I specified the file path so I don't know if I need to select the file and open it?
Dialog asking for file
Sub GetTimelineMemberFirst()
Dim wbXL As Excel.Workbook
'UPDATE w/ path to Files
Set wbXL = CreateObject("S:\Premier\020218\Initial\17314 - Merger.xlsm")
'Get IV timeline
Sheets("Merger - Feb 2018").Unprotect
Range("A17:G90").Select
Selection.Clear
'UPDATE w/ SOW name
Windows("17314 - Merger Merger Work statements.xlsm").Activate
Sheets("Timeline").Select
Range("A2:G80").Select
Selection.Copy
Windows("weekly spreadsheet.xls").Activate
'UPDATE w/ WCM tab name
Sheets("Merger - Feb 2018").Select
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("B17:B90").Select
Selection.Delete Shift:=xlToLeft
'get lead timeline
Range("A349:G900").Select
Selection.Clear
'UPDATE w/ SOW name
Windows("17314 - Merger Merger Work statements.xlsm").Activate
Sheets("Lead").Select
Range("A1:G140").Select
Application.CutCopyMode = False
Selection.Copy
Windows("weekly spreadsheet.xls").Activate
'UPDATE w/ WCM tab name
Sheets("Merger - Feb 2018").Select
Range("A349").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B349:B900").Select
Selection.Delete Shift:=xlToLeft
Range("A79:F79").Select
Selection.AutoFilter
ActiveSheet.Range("$A$79:$F$335").AutoFilter Field:=3, Criteria1:="="
Range("A1").Select
wbXL.Close
End Sub​