On Error GoToステートメントについて

Question

お世話になっております。

Option Explicit

Sub TrapSample()

    On Error GoTo HandleErr
   
   
    ActiveWorkbook.Charts(1).Activate
   
   
    ActiveChart.SizeWithWindow = True
    MsgBox "正常に処理を終了しました"
    Exit Sub
   
HandleErr:
    MsgBox "グラフシートはありません"
End Sub

というコードなのですがエクセルにグラフシートを挿入してもHandleErr:になりMsgBox "グラフシートはありません"と表示されてしまいます。

エクセルにグラフシートを挿入した際アクティブになりコードに入力されている処理が実行されるには、どうしたらよいか教えて欲しいです。

よろしくお願い致します。

ちなみにExcel2016です。

Answer 1

「ActiveWorkbook.Charts(1).Activate」の部分を、以下のように変更してみて下さい。

ActiveSheet.ChartObjects(1).Activate

Answer 2

nomboさん

解決できました。

ありがとうございます。