質問: カテゴリ名 end if next end if next '================================================================== 以上、原因をご存じの方や思い当たる節がある方、どうかご教示ください。 わかりにくい部分などがありましたら、ご指摘いただければ追記させていただきます。 よろしくお願いいたします。
回答: 画面描画更新がおいついていないのかもしれませんね。 実行中ちらつきますが、下記コードだとどうなりますか? for each sht in worksheets if sht.visible = true then for each objshp in sht.shapes 'カテゴリ名表示というオートシェイプがあるかチェック if objshp.name = "カテゴリ名表示" then sht.activate '存在すれば、カテゴリ名をセット objshp.textframe.characters.text = カテゴリ名 application.screenupdating = true exit for end if next end if next