On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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.