The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
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
|Using an Average(IF statement to return values from closed external workbooks||5||19|
|Excel Spacing Anomaly||4||23|
|Select/Copy row and pasting it lower in sheet||7||19|
|Unhide very hidden sheets with password||22||44|