INDEX＋MATCH関数で参照するエクセルを都度選択できるようにしたいです

Question

前提・実現したいこと

VBA初心者です。
INDEX＋MATCH関数で参照するエクセルを都度選択できるようにしたいです。
何卒宜しくお願い申し上げます。

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

現在フルパスを指定して、INDEX＋MATCH関数で参照するエクセルを設定させる
コードを作成したのですが、対象となるエクセルは使用する都度変化するため、
実行する度にエクセルファイルを選択できるようなコードが書けないものか悩んでいます。

※下記コードでいうところの「XXXXXXX.xlsx」を尋ねてきて、
ファイルを選択できるようなコードにしたいです。

該当のソースコード

Option Explicit

Sub 検索()

    Dim res As Worksheet
    Dim z As Long
    Set res = Worksheets("result")
    z = res.Cells(res.Rows.Count, "A").End(xlUp).Row

Debug.Print res.Name, z

    Dim sPath As String, fn As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range
    sPath = "C:\Users\XXXXXXX\Desktop\XXXXXXX.xlsx"
    fn = "XXXXXXX.xlsx"
    For Each wb In Workbooks
       If wb.Name = fn Then Exit For
    Next wb
    If wb Is Nothing Then
      Set wb = Workbooks.Open(Filename:=sPath, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)
    End If
    Set ws = wb.Worksheets("sheet1")
    Set rng1 = ws.Range("I1:AM" & ws.Cells(ws.Rows.Count, "AM").End(xlUp).Row)
    Set rng2 = ws.Range("AM1:AM" & ws.Cells(ws.Rows.Count, "AM").End(xlUp).Row)

Debug.Print wb.Name, ws.Name, rng1.Address, rng2.Address

    Dim i As Long
    Dim x As String
    For i = 2 To z
        '発注番号を取得
        x = res.Cells(i, 3).Value
            '納品予定日の値を表示
        With Application.WorksheetFunction
On Error Resume Next
            res.Cells(i, 7).Value = .Index(rng1, .Match(x, rng2.Value, 0), 1)
On Error GoTo 0
        End With

Debug.Print i, x, ws.Name, res.Cells(i, 7).Value

    Next
End Sub

試したこと

色々ネットを検索してみたのですが、近しい内容の記述が見つからず、
困り果ててしまい、こちらで質問させていただきます。

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

Excel for Microsoft 365 を使用しています。

Answer 1

    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        sPath = .SelectedItems(1)
    End With

Comments

[opsy]

すぐにご回答くださり、ありがとうございます。
また、先日に引き続いてのご回答、重ねて御礼申し上げます。
上手くいきました！本当に感謝です。
宜しくお願い申し上げます。

Answer 2

「VBA ファイル選択」をキーワードにWEB検索すれば、サンプルコードがすぐ見つかります。

例えば、

[ファイルを開く]ダイアログボックスを表示する（GetOpenFilenameメソッド）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

Comments

[opsy]

すぐにご回答くださり、ありがとうございます。
一応検索はしたつもりなのですが…根気不足かもしれません。
恐れ入ります。