Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!