Open Workbook with Partial Name

Public Sub Test1()

Dim sFile As String

sFile = Dir("X:\Temp\BO*.xlsx") 'Change path to suit

If sFile <> "" Then
    MsgBox sFile
    'Open file here
Else
    MsgBox "File not found"
End If

End Sub

Public Sub Test2()

Dim sStartPath As String
Dim sFileName As String
Dim sFileExt As String
Dim sBOFile As String 'File to open

sFileExt = "*.*" 'Change to suit
sStartPath = "X:\Temp\" 'Change to suit

'Read the first file in the directory
sFileName = Dir(sStartPath + sFileExt, vbNormal)

'If the two left characters are "BO" assume as targeted file
If Left(UCase(sFileName), 2) = "BO" Then
    sBOFile = sFileName
End If

Debug.Print sFileName

'Read thru rest of files in directory
Do While sFileName <> ""

    sFileName = Dir
    
    'If the two left characters are "BO" assume as targeted file
    If Left(UCase(sFileName), 2) = "BO" Then
        sBOFile = sFileName
    End If
    Debug.Print sFileName
    
Loop

If sBOFile <> "" Then
    MsgBox "Open: " & sBOFile
    'Open file here
Else
    MsgBox "No file found"
End If

End Sub