【VBAマクロ】入力規制(プルダウン)を使用して、画像の切り替えを行いたい

・実現したいこと

VBAマクロを使用し、入力規制(プルダウン)で項目選択→画像の切り替えを行うプログラムを作成中です。
マクロを組んでいるのですが、エラーも起きないので、どこがおかしいか、わかりません。。。

①入力規制し、番号をプルダウンで選択できるようにする(例：1,2,3,4,5,6,7,8,9,10)
②1を選択すると、1の画像が表示される。2を選択すると、2の画像が選択される

・前提
自分で行ったプログラム作成手順は以下です。
①エクセルのシートA3に入力規制したプルダウンリストを作成しました。(例：1,2,3,4,5,6,7,8,9,10)
②入力規制の値を取得する
③取得した値をそれぞれ画像に割り当てていく→ここあっているでしょうか？？

以上の流れで、コードを作成しました。
作成手順で間違っている場合は教えていただきたいです。

・該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim img(9) As String
img(0) = "D:\Aclt\VBA\IMG_7337.jpg"
img(1) = "D:\Aclt\VBA\IMG_7463.jpg"
img(2) = "D:\Aclt\VBA\IMG_7554.jpg"
img(3) = "D:\Aclt\VBA\IMG_7337.jpg"
img(4) = "D:\Aclt\VBA\IMG_7463.jpg"
img(5) = "D:\Aclt\VBA\IMG_7554.jpg"
img(6) = "D:\Aclt\VBA\IMG_7337.jpg"
img(7) = "D:\Aclt\VBA\IMG_7463.jpg"
img(8) = "D:\Aclt\VBA\IMG_7554.jpg"
img(9) = "D:\Aclt\VBA\IMG_7337.jpg"
Dim shp As Shape

Dim j As Long
Dim tmp As Variant

If IsArray(Target.Value) Then Exit Sub
If (Target.Row >= 2 And Target.Row <= 4) And (Target.Column = 1) Then

    'セルA3の入力規則リスト内容を取得
    If Cells(3, 1).Validation.Type = xlValidateList Then
        tmp = Split(Cells(3, 1).Validation.Formula1, ",")
    End If

    '入力規則リストをループ
    For j = 0 To UBound(tmp)

        'A列3ギョウの値からリストの何番目かチェック
        If Cells(3, 1) = tmp(j) Then
            Cells(3, 2) = j
            With Range("D2")
                Set shp = ActiveSheet.Shapes.AddPicture(img(j), linktofile:=False, savewithdocument:=True, Left:=.Left, Top:=.Top, Width:=0, Height:=0)
                shp.ScaleHeight 1, True
                shp.ScaleWidth 1, True
                shp.LockAspectRatio = True
            End With
        End If
    Next j
End If