macro that adds left and right footers
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? |
macro that adds left and right footers
If you show us the cod we might have.
-- HTH RP (remove nothere from the email address if mailing direct) "Keith" wrote in message ... 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? |
macro that adds left and right footers
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" wrote in message ... 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? |
macro that adds left and right footers
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" wrote in message ... 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" wrote in message ... 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? |
macro that adds left and right footers
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" wrote in message ... 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" wrote in message ... 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? |
All times are GMT +1. The time now is 06:47 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com