Edited at

すべてのシートのページフッタを書き換える

More than 3 years have passed since last update.

あとから「この仕様書、下にコピーライトを印刷してほしい」などとほざかれたときのお供に。

Public Sub フッタ書き換え()

Dim i As Long

For i = 1 To Worksheets.count
With Worksheets(i)
' 例えば、フッタの右側を書き換える
.PageSetup.RightFooter = "All Rights Reserved, Copyright (C)hogehoge"
End With
Next
End Sub