Excel 2010 open workbook that is named in Cell value

Try:

Sub OpenDailyWorkbook()
    Dim sPath As String
    Dim sFileName As String
    Dim wb As Workbook
    
    sPath = "C:\Temp\"  ' change as necessary
    sFileName = "Pickup List " & Format(Date, "mmm d") & ".xlsx"
    If Dir(sPath & sFileName) = "" Then
        MsgBox "File " & sPath & sFileName & " was not found", vbExclamation + vbOKOnly
    Else
        Set wb = Workbooks.Open(sPath & sFileName)
    End If

End Sub

(you don't need the TODAY() formula or the formatted name in cells B3 and C2 - the code does that formatting for the current date)

Aha! Then change this line:

    sFileName = "Pickup List " & Application.WorksheetFunction.Text(Date, "[$-409]mmm d") & ".xlsx"

Hi Olly,

EDIT : Sorry it works, thanks for your help!

Okay, this version will check to see if the workbook is already open - if not, then try to open it - then activate it.

Sub OpenDailyWorkbook()
    Dim sPath As String
    Dim sFilename As String
    Dim wb As Workbook
    
    sPath = "C:\Temp\"  ' change as necessary
    sFilename = "Pickup List " & Application.WorksheetFunction.Text(Date, "[$-409]mmm d") & ".xlsx"
    
    On Error Resume Next
    Set wb = Workbooks(Dir(sPath & sFilename))
    If Err Then Err.Clear
    On Error GoTo Terminate
    If wb Is Nothing Then Set wb = Workbooks.Open(sPath & sFilename)
    wb.Activate

Terminate:
    If Err Then
        MsgBox "File " & sPath & sFilename & " was not found", vbExclamation + vbOKOnly
        Err.Clear
    End If
End Sub