『他のEXCELファイルからVloolupで検索したい』（xxsaka）

WEBから、検索文字を直接指定する下記のVBAのコード例が見つかりました。
このプログラムで問題なく動作しています。

'' OKのケース
    With ThisWorkbook.Worksheets("sheet1")
         .Range("J20") = "=VLOOKUP(""〇〇病院"",'M:\DB\[ユーザDB.xlsm]ユーザ'!A2:W29965,7,FALSE)"
         .Range("J20").Value = .Range("J20").Value ' 値に変換
    End With

　この検索文字、""〇〇病院""を文字列変数(search_name)で与えられるようにする場合の
　プログラムの書き方を教えてください。




＜ 使用 Excel：Office365、使用 OS：Windows10 ＞
----
 With ThisWorkbook.Worksheets("sheet1")
    .Range("J20") = "=VLOOKUP(" & search_name & ",'M:\DB\[ユーザDB.xlsm]ユーザ'!A2:W29965,7,FALSE)"
    .Range("J20").Value = .Range("J20").Value ' 値に変換
End With

こんな風になります。
（下手の横好き） 2022/10/11(火) 15:50:38
----
(下手の横好き）さん。

早々の回答ありがとうございます。
助かります。


（xxsaka） 2022/10/11(火) 20:48:30
----
 回答してもらったVBAコードで実行すると、＃NAME？エラーとなります。

 .Range("J20") = "=VLOOKUP(" & search_name & ",'M:\DB\[ユーザDB.xlsm]ユーザ'!A2:W29965,7,FALSE)"

　上の式の右辺　"=VLOOKUP ..
  を実行すると、
　　＝VLOOKUP（○○病院、'M\Com\■..  
  に変換されます。
　変数名の参照はできているのですが、
　VLOOKUPで検索するには,下記のように、変数で示す名称を" "で囲む必要がありそうです。
　　　＝VLOOKUP（"○○病院"、'M\Com\■..

　試行錯誤でいろいろ試してみましたが、うまく動きません。
　"  " で囲むにはどのように記述するべきでしょうか？
（xxsaka） 2022/10/12(水) 11:46:40
----
 追加で質問した件ですが、

　.Range("J20") = "=VLOOKUP( """ & search_name & """,'M:\DB....


 　で　search_nameで与えた文字列が""で囲まれ、vlookupの検索が
　
　ヒットするようになりました。
　
　お騒がせしました。
（xxsaka） 2022/10/12(水) 12:10:28