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 OpenOneBook() ..... Set cel = Columns("A").Find(What:=[Q1], after:=Cells(1, 1), LookIn:=xlValues) Dim wb As String wb = [Q1] & " " & ActiveSheet.[annum] & " " & "Week " & [F1] & "_2BCoded.xls" On Error GoTo here Workbooks.Open Filename:=Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 11) & [Q1] & "\3_Working Files\2BCoded\" & wb Call AddNewWeekOneBook here: MsgBox "This workbook has not been created yet, or has been renamed." End Sub