ExcelVBA で With ステートメントを使用すると、同じオブジェクトの記述を繰り返す手間が省けるようです。