Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!