macro that adds left and right footers

[Keith]

I have an application where a macro adds left and right footers. However,
once the code assigns the left footer, the macro generates an error saying
"Unable to set the RightFooter property of PageSetup Class."

If the right footer is assigned first, the same error is genearted for the
left footer.

Any insights?

[Bob Phillips]

If you show us the cod we might have.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Keith" <[email protected]> wrote in message
news:[email protected]...
> I have an application where a macro adds left and right footers. However,
> once the code assigns the left footer, the macro generates an error saying
> "Unable to set the RightFooter property of PageSetup Class."
>
> If the right footer is assigned first, the same error is genearted for the
> left footer.
>
> Any insights?

[Keith]

here is the code:

Sub Procedure1()
********
Sheet1.Select
With ActiveSheet.PageSetup
.RightFooter = "&6" & str
End With
End Sub

Sub Procedure2()
********
Sheet1.Select
With ActiveSheet.PageSetup
.LeftFooter = "&6" & str
End With
End Sub

Again, one or the other works, but not both.

"Bob Phillips" wrote:

> If you show us the cod we might have.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Keith" <[email protected]> wrote in message
> news:[email protected]...
> > I have an application where a macro adds left and right footers. However,
> > once the code assigns the left footer, the macro generates an error saying
> > "Unable to set the RightFooter property of PageSetup Class."
> >
> > If the right footer is assigned first, the same error is genearted for the
> > left footer.
> >
> > Any insights?
>
>
>

[Bob Phillips]

Is the use of Str that is the problem, as this is a VBA function.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Keith" <[email protected]> wrote in message
news:[email protected]...
> here is the code:
>
> Sub Procedure1()
> ********
> Sheet1.Select
> With ActiveSheet.PageSetup
> .RightFooter = "&6" & str
> End With
> End Sub
>
> Sub Procedure2()
> ********
> Sheet1.Select
> With ActiveSheet.PageSetup
> .LeftFooter = "&6" & str
> End With
> End Sub
>
> Again, one or the other works, but not both.
>
> "Bob Phillips" wrote:
>
> > If you show us the cod we might have.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "Keith" <[email protected]> wrote in message
> > news:[email protected]...
> > > I have an application where a macro adds left and right footers.
However,
> > > once the code assigns the left footer, the macro generates an error
saying
> > > "Unable to set the RightFooter property of PageSetup Class."
> > >
> > > If the right footer is assigned first, the same error is genearted for
the
> > > left footer.
> > >
> > > Any insights?
> >
> >
> >

[Keith]

Thanks for you help. Replacing the use of str did not work. It was actually
the string itself, which was:
..leftfooter = "-- = A" & vbcr & "--- = B"

for some reason the footer property does not like the the dashes and equal
sign.

"Bob Phillips" wrote:

> Is the use of Str that is the problem, as this is a VBA function.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Keith" <[email protected]> wrote in message
> news:[email protected]...
> > here is the code:
> >
> > Sub Procedure1()
> > ********
> > Sheet1.Select
> > With ActiveSheet.PageSetup
> > .RightFooter = "&6" & str
> > End With
> > End Sub
> >
> > Sub Procedure2()
> > ********
> > Sheet1.Select
> > With ActiveSheet.PageSetup
> > .LeftFooter = "&6" & str
> > End With
> > End Sub
> >
> > Again, one or the other works, but not both.
> >
> > "Bob Phillips" wrote:
> >
> > > If you show us the cod we might have.
> > >
> > > --
> > >
> > > HTH
> > >
> > > RP
> > > (remove nothere from the email address if mailing direct)
> > >
> > >
> > > "Keith" <[email protected]> wrote in message
> > > news:[email protected]...
> > > > I have an application where a macro adds left and right footers.
> However,
> > > > once the code assigns the left footer, the macro generates an error
> saying
> > > > "Unable to set the RightFooter property of PageSetup Class."
> > > >
> > > > If the right footer is assigned first, the same error is genearted for
> the
> > > > left footer.
> > > >
> > > > Any insights?
> > >
> > >
> > >
>
>
>