ExcelVBA "On Error Goto xxxx"が無視されるようになった

Question

前提

ExcelVBAで複数の書類（Excel、Word混在）を作成するマクロを作成しています。
以前は意図した通りに動作していたのですが、5日ほど前から意図した動きをしなくなりました。

動作は以下の通りです。
１．Scripting.FileObjectのオブジェクトを作成
２．１で作成したオブジェクトに既存のWordオブジェクトを代入
２の前に"On Error Goto word_create"と入れ、
word_createの中では１で作成したオブジェクトにWordオブジェクトを生成して代入

実現したいこと

既存のWordオブジェクトがなければ新規Wordオブジェクトを作成して処理が進むようにしたい

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

実行時エラー'429'
ActiveXコンポーネントはオブジェクトを作成できません。

該当のソースコード

ExcelVBA

Private Wordobj As word.Application

Private Sub class_initialize()

Set FSO = CreateObject("Scripting.FileSystemObject")
On Error GoTo word_create
Set Wordobj = GetObject(Class:="Word.Application")
On Error GoTo 0
Wordobj.Visible = False
Wordobj.ScreenUpdating = False

Exit Sub
word_create:
Set Wordobj = CreateObject("Word.Application")
Resume
End Sub

試したこと

Excelの再起動
PCの再起動

Comments

[hatena19]

エクセルのバージョンとビルド番号を教えてください。
そのエラーがでたとき、デバックボタンをクリックすると、どの行がハイライト表示されてますか。
エラーが出始める前にコードを修正したり、VBAの設定を変えてませんか。

Answer 1

とりあえず、下記の点を確認ください。
VBAの [ツール]-[オプション[全般]-[エラートラップ] の設定。
これが「エラー発生時に中断」になっていると、エラートラップは無視されます。

【EXCEL VBA】VBEオプションのエラートラップの違いを知りたい | EXCEL VBA 研究所（入門）

Comments

[nao-y]

ありがとうございました!「エラー発生時に中断」になっていました。
「エラー処理対象外のエラーで中断」に変更したところ、問題なく動作しました。
他のエラー調査をしたときに設定を変更し、そのままにしていたようです。
助かりました。ありがとうございました。