Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Sub OpenBooks() Dim cel As Range For Each cel In ActiveSheet.[Customers] Dim wb As String, wb2 As String wb = cel & " " & ActiveSheet.[annum] & " " & "Week " & [F1] & ".xls" wb2 = cel & " " & ActiveSheet.[annum] & " " & "Week " & [F1] & "_2BCoded.xls" '& [XLVersion] On Error GoTo Paris ChDir ThisWorkbook.Path & "\..\" & cel & "\3_Working Files\Coded\" Workbooks.Open Filename:=wb GoTo Rome Paris: Err.Clear ChDir ThisWorkbook.Path & "\..\" & cel & "\3_Working Files\2BCoded\" Application.DisplayAlerts = False On Error GoTo Madrid Workbooks.Open Filename:=wb2 Rome: Call AddNewWeek Madrid: Err.Clear Next cel Application.DisplayAlerts = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.