I used a picker box to select the directory then open, copied, and closed
each of the 4 workbooks

Sub OpenFile()
 
 Dim myFileName As Variant
 Dim wkbk As Workbook
 Dim MyPath As String
 Dim sFilename As String
 Dim fExitDo As Boolean
 Dim sFileType As String
 Dim sFileOpen As String
 Dim sFileBudget As String
 Dim sFileJobList As String
 Dim sFileOrders As String
 Dim sFileLedger As String
   
 Dim Msg, Style, Title, Help, Ctxt, Response, MyString
   
 Msg = "Select ""YES"" to proceed to Open WIP Data Files, " & _
       """NO"" to view Current File only"
 Style = vbYesNoCancel + vbCritical + vbDefaultButton2    ' Define buttons.
 Title = "Open New WIP Data Files "    ' Define title.

 Response = MsgBox(Msg, Style, Title, Help, Ctxt)

 If Response = vbYes Then
 
    sFileBudget = "jobba1-" '--Job budget file to copy to sheet "Budget"
    sFileJobList = "jobbl1-" '--Job Job List file to copy to sheet WIP"
    sFileOrders = "salcustd1-" '--Job Customer Sales Orders file to copy to
                                'Sheet "Orders"
    sFileLedger = "genjrld1-" '--Job General Ledger Detail file to copy to
                           'Sheet "Ledger4900"
 
    MyPath = "S:\MYOB Data Files\WIPData\"
    ChDrive "S:\"
'     ChDir MyPath
 
    '--users are to add a file name extension to the standard reports and
save
    'as .XLS files.  It will be same for all 4 data files
       
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
       .Title = "Select Folder"

       If .Show <> -1 Then
          MsgBox "No files found-make sure you have saved your" & _
              "files in the correct location"
          Exit Sub
       End If
       
       Application.DisplayAlerts = False
       
       sFileOpen = .InitialFileName & sFileBudget & ".xls"
       If Dir(sFileOpen) = "" Then
          MsgBox ("Cannot find file : " & sFileOpen)
       Else
          Set wkbk = Workbooks.Open(Filename:=sFileOpen)
   
 
          ActiveSheet.Cells.Copy _
             Destination:=Workbooks("WIP Template V1.xls"). _
                Sheets("Budget").Cells
   
          wkbk.Close Savechanges = False
       End If
   
       sFileOpen = .InitialFileName & sFileJobList & ".xls"
       If Dir(sFileOpen) = "" Then
          MsgBox ("Cannot find file : " & sFGileOpen)
       Else
          Set wkbk = Workbooks.Open(Filename:=sFileOpen)
   
          ActiveSheet.Cells.Copy _
           Destination:=Workbooks("WIP Template V1.xls"). _
              Sheets("WIP").Cells
   
          wkbk.Close Savechanges = False
       End If
   
       sFileOpen = .InitialFileName & sFileOrders & ".xls"
       If Dir(sFileOpen) = "" Then
          MsgBox ("Cannot find file : " & sFileOpen)
       Else
          Set wkbk = Workbooks.Open(Filename:=sFileOpen)
   
          ActiveSheet.Cells.Copy _
             Destination:=Workbooks("WIP Template V1.xls"). _
                Sheets("Orders").Cells
   
          wkbk.Close Savechanges = False
       End If
   
       sFileOpen = .InitialFileName & sFileLedger & ".xls"
       If Dir(sFileOpen) = "" Then
          MsgBox ("Cannot find file : " & sFileOpen)
       Else
          Set wkbk = Workbooks.Open(Filename:=sFileOpen)
   
          ActiveSheet.Cells.Copy _
             Destination:=Workbooks("WIP Template V1.xls"). _
                Sheets("Ledger4900").Cells
   
          wkbk.Close Savechanges = False
       End If
   
    End With

   Application.DisplayAlerts = True
 
  Else
    Exit Sub
  End If
   

End Sub