以下のコードは問題なく動作しますが、行をコメントアウトすると、Worksheets(Options).Activate
実行時エラー 1004 が発生します。
Worksheets(Options).Activate
Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Font.Bold = True
Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Interior.Color = LongColor