他のシートからクリックされた図形の名前を確認する

Question

シート1とシート2で作業し、両方のシートにコードを含む図形があります。シート1の形状IDは「実行1」、シート2の形状IDは「EQ-1」です。私はすでにsheet1/sheet2でクリックした形状IDを識別できるコードを持っています。しかし、コードは "指定された名前の項目が見つかりませんでした"という説明でデバッグしています。ありがとう。希望このことができます... :) は、このコードは2

sub x() 

'the first trial 
If Sheet1.Shapes(Application.Caller).Name = "RUN 1" Then Sheet2.Cells(1, 2) = "x" 
If activesheet.Shapes(Application.Caller).Name = "EQ-1" Then Sheet2.Cells(1, 2) = "x" 

'the second trial 
If Sheet1.Shapes(Application.Caller).Name = "RUN 1" Or _ 
activesheet.Shapes(Application.Caller).Name = "EQ-1" Then Sheet2.Cells(1, 2) = "x" 

end sub 

Answer 1

試しシートに配置する必要があります

Sub x() 

    If Application.Caller = "RUN 1" Or Application.Caller = "EQ-1" Then 
     Sheet2.Cells(1, 2) = "x" 
    End If 

End Sub 

を助けてください！