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?
|