Coding for custom footer

I am trying to put 1 of 4 footers into the center footnote via a macro. Which
footer that goes in depends on the scenario selected by the end user.

The longest of the 4 footnotes is 198 characters. The left footnote is 56
characters. The right footnote is today's date and should have a maximum
length of 10 characters.

So the sum of all of these never exceeds the 255 mark.

Yet I get an error message "Runtime 1004. Unable to set the CenterFooter
property in Page Setup" on 3 of the 4 footnotes.

If need be, how do you paste or insert one of four pictures in the
CenterFootnote?

Sub Macro1()
Dim s As String
s = Cells(1, 1).Value
ActiveSheet.PageSetup.CenterFooter = s
End Sub

will set the centerfooter to some text string

If you want a picture in the centerfooter then

ActiveSheet.PageSetup.CentertFooterPicture.FileName = "C:\pic.jpg"
or some other text string specifying the file


--
Gary''s Student


"cakprogramming" wrote:

> I am trying to put 1 of 4 footers into the center footnote via a macro. Which
> footer that goes in depends on the scenario selected by the end user.
>
> The longest of the 4 footnotes is 198 characters. The left footnote is 56
> characters. The right footnote is today's date and should have a maximum
> length of 10 characters.
>
> So the sum of all of these never exceeds the 255 mark.
>
> Yet I get an error message "Runtime 1004. Unable to set the CenterFooter
> property in Page Setup" on 3 of the 4 footnotes.
>
> If need be, how do you paste or insert one of four pictures in the
> CenterFootnote?

198+56+10=264

Mike F
"cakprogramming" <[email protected]> wrote in message
news:[email protected]...
>I am trying to put 1 of 4 footers into the center footnote via a macro.
>Which
> footer that goes in depends on the scenario selected by the end user.
>
> The longest of the 4 footnotes is 198 characters. The left footnote is 56
> characters. The right footnote is today's date and should have a maximum
> length of 10 characters.
>
> So the sum of all of these never exceeds the 255 mark.
>
> Yet I get an error message "Runtime 1004. Unable to set the CenterFooter
> property in Page Setup" on 3 of the 4 footnotes.
>
> If need be, how do you paste or insert one of four pictures in the
> CenterFootnote?