【VBA】セルを選択→ダウンロードフォルダ開く→ファイルを選択→選択したセルに挿入

Question

タイトルの内容を実現するコードを書いてみました。
改善ポイント等あればご教示頂きたいです。

細かな条件は以下となります。
◆挿入先のセルは一つです
◆ファイルはユーザーが選択できるようにしたいです
◆ボタン押下→ダウンロードフォルダ開く→ファイルをダブルクリック→挿入

Sub 〇〇〇データ取り込み()
'変数定義
Dim ws3 As Worksheet '"〇〇〇データ選択シート"を変数化
Dim rng As Range
Dim SelectFile As String '選択したファイル名を格納する変数
Dim myShape As Shape

    Set ws3 = Worksheets("〇〇〇データ選択シート")
    Set rng = ActiveCell
    
With Application.FileDialog(msoFileDialogFilePicker)
     .Show 'ファイルダイアログを開く
     SelectFile = .SelectedItems(1) '「開く」ボタンを押すとファイル名が取得できる
     Set myShape = ActiveSheet.Shapes.AddPicture(SelectFile, False, True, rng.Left, rng.Top, -1, -1) '選択したセルに挿入
     
End With

End Sub

どうぞよろしくお願い致します。

Answer 1

ws3もmyShapeも、セットしたあと使ってないのが気になりますが
意図通りに動いているならとりあえずは良いのではないでしょうか。

Sub 〇〇〇データ取り込み()
    Dim SelectFile As String  '選択したファイル名を格納する変数

    With ActiveCell
       'If Not .Worksheet.name = "〇〇〇データ選択シート" Then Exit Sub
        With Application.FileDialog(msoFileDialogFilePicker)
            .Show 'ファイルダイアログを開く
            If .SelectedItems.Count = 0 Then Exit Sub
            SelectFile = .SelectedItems(1) '「開く」ボタンを押すとファイル名が取得できる
        End With
       '選択したセルに挿入
        .Worksheet.Shapes.AddPicture SelectFile, False, True, .Left, .Top, -1, -1
    End With
End Sub