VBA 名前が部分一致している別ブックを開く

Question

実現したいこと

• 作業中のブックと同じファイル内にある、名前に「テスト」が入った別ブックを開きたい

発生している問題・エラーメッセージ

実行エラー ‘1004’
申し訳ございません。C:￥Users￥Desktop￥ファイル￥が見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。

該当のソースコード

Sub GetActiveWorkbookPath()
    Dim sBookName   As String
    Dim sDir        As String
    Dim sPath       As String 
    Dim wb          As Workbook 
    
    sBookName =  Dir(“＊テスト＊")
 
    sDir = ThisWorkbook.Path
  
    sPath = sDir & "￥" & sBookName

   Workbooks.Open FileName:=sPath, ReadOnly:=True, UpdateLinks:= 0
    
End Sub

試したこと

特にファイル名の変更や移動はおこなっていない為、、コードに修正がありましたらご教示いただきたいです。
なおエラーは下記の場所で出ています。

   Workbooks.Open FileName:=sPath, ReadOnly:=True, UpdateLinks:= 0

補足情報（FW/ツールのバージョンなど）

Windows、Excelバージョン2008です。

Answer 1

コード中の ＊ や ￥ が全角になってますが、半角にしてください。
Dir関数の引数は、作業中のブック(ThisWorkbook)のフォルダーパスも含めいて指定してください。

上記の修正を反映させると下記になります。

Sub GetActiveWorkbookPath()
    Dim sBookName   As String
    Dim sDir        As String
    Dim sPath       As String
    Dim wb          As Workbook
    
    sDir = ThisWorkbook.Path
    sBookName = Dir(sDir & "/" & "*テスト*.xls*")
 
  
    sPath = sDir & "/" & sBookName

    Workbooks.Open Filename:=sPath, ReadOnly:=True, UpdateLinks:=0
    
End Sub