We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|why cannot i download this excel file?||7||29|
|Looking for UDF that would pick out part of a cell given the the delimiter and the position.||6||19|
|In Excel 2007, how do I modify this formula so that the total number of question marks are printed out in a cell?||2||12|
|HOW CAN I summarize THE REPEAT NUMBERS||3||9|