同じオブジェクトに対して複数の処理を実行する方法としてWithステートメントを使用する方法があります。
With オブジェクト名
処理1
処理2
処理3
End With
以下の例はSheet1をアクティブにし、セルの複数のプロパティに値をセットしています。
Sub test()
With Worksheets("Sheet1").Cells(1, 1)
.Activate
.Value = "WithTest" '値
With .Font
.Size = 14 '文字サイズ
.Bold = True '太文字
.FontStyle = "HG教科書体" '書式
End With
.Interior.ColorIndex = 6 'セルの色
.RowHeight = 20 'セルの高さ
.ColumnWidth = 10 'セルの幅
End With
End Sub