Is it possible to use VBA code to scroll through the sheets in a workbook and
if there's a center footer, add a CRLF and then some text. If there is not
footer, just add the text. I use code to set footers but when I do something
like this:

Dim Sh As Worksheet
For Each Sh In Worksheets
With Sh.PageSetup
.CenterFooter = "Some text" & Chr(10) & "Some more text"
...

I get the footers replaced. I want it added to what's already there. Thanks.