プルダウンリストで選択された名前の図を表示したい

実現したいこと

プルダウン(C1セル)で選択された名前の図を表示したい。
C1セルで選択した図をSheet1 C4セルに表示させたいです。
図一覧はSheet2に集約しております。

プログラムの流れは
①前回の図を削除→②プルダウンで図の名前を選択→③Sheet2の中にある②で選択した図をコピー→④Sheet1 C4セルに図を表示させる
という流れです。

以前試したこと

以前はシートごとに図を一枚ずつ貼り付けて、プルダウンで名前を指定していたのですが、シートに複数の図を貼り付けて、呼び出せないものかと思い、質問させていただきました。ちなみに一枚ずつシートに貼り付けていたときのプログラムは以下になります

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

下記のコードで実行すると、エラーがでてしまいます。

【実行時エラー1004 指定した名前のアイテムが見つかりませんでした。】
型の問題でしょうか？"imageName"をString型でしてしているのですが、これがまずいでしょうか？

エラーの場所：ActiveSheet.Shapes.Range(Array("imageName")).Select→ここでエラーおきます。

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim imageName As String
Dim pic As Picture

If Target.Address = "$C$1" Then

       
    For Each pic In ActiveSheet.Pictures
    
        If Not Intersect(pic.TopLeftCell, Range("C4")) Is Nothing Then　'図を削除
        pic.Delete
    
        End If
    Next
    
    'C1セルの値を取得

    imageName = Sheets("Sheet1").Range("C1").Value
    
     Sheets("Sheet2").Select　'シート２を選択
    ActiveSheet.Shapes.Range(Array("imageName")).Select　'→C1セル名前の図を選択ですがここでエラー起きます
    Selection.Copy
    
    Sheets("Sheet1").Select
    Range("C4").Select
    ActiveSheet.Paste
    
 End If

End Sub

試したこと

以前はSheetごとに図を一枚ずつ貼り付けて、プルダウンで名前を指定していたのですが、シートに複数の図を貼り付けて、呼び出せないものかと思い、質問させていただきました。ちなみに一枚ずつシートに貼り付けていたときのプログラムは以下になります。

Worksheets("Sheet1").Select
For Each 〇〇 In Worksheets("Sheet2").Shapes
〇〇.Copy 'オブジェクトをコピー
ActiveSheet.Paste Link:=False

                With ActiveSheet.Shapes("〇〇")  '変更した図を選択

                    '位置とサイズを変更
                    .Top = Range("G2").Top  '位置を指定
                    .Left = Range("G2").Left
                
                End With
            Next