Is there a way to add the current date AND the contents of a certain cell in
the footer? I tried entering the following in the customized footer section
to no avail:

&[Date], [Sheets("Registration").Range("B7")]

Thanks in advance.

As far as I know this can be done only via VBA:
Sub lfooter()
ActiveSheet.PageSetup.LeftFooter = "&D" &
Sheets("Registration").Range("B7")
End Sub
You can insert this custom footer also directly via VBA Immediate window.
Regards,
Stefi


„Carlâ€� ezt Ã*rta:

> Is there a way to add the current date AND the contents of a certain cell in
> the footer? I tried entering the following in the customized footer section
> to no avail:
>
> &[Date], [Sheets("Registration").Range("B7")]
>
> Thanks in advance.

Thanks, Stefi.
I finally remembered that I had solved this problem several months back with
the help of others in the forum. I am running the following macro when the
sheets print and it works well. Thanks again.

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&7 " & Format(Now(),
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Registration").Range("B7").Value
End With
End Sub

"Stefi" wrote:

> As far as I know this can be done only via VBA:
> Sub lfooter()
> ActiveSheet.PageSetup.LeftFooter = "&D" &
> Sheets("Registration").Range("B7")
> End Sub
> You can insert this custom footer also directly via VBA Immediate window.
> Regards,
> Stefi
>
>
> „Carlâ€� ezt Ã*rta:
>
> > Is there a way to add the current date AND the contents of a certain cell in
> > the footer? I tried entering the following in the customized footer section
> > to no avail:
> >
> > &[Date], [Sheets("Registration").Range("B7")]
> >
> > Thanks in advance.

You are welcome! Thanks for the feedback!
Stefi

„Carlâ€� ezt Ã*rta:

> Thanks, Stefi.
> I finally remembered that I had solved this problem several months back with
> the help of others in the forum. I am running the following macro when the
> sheets print and it works well. Thanks again.
>
> Sub CellInFooter()
> With ActiveSheet
> .PageSetup.LeftFooter = "&""Arial,Regular""&7 " & Format(Now(),
> "mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Registration").Range("B7").Value
> End With
> End Sub
>
> "Stefi" wrote:
>
> > As far as I know this can be done only via VBA:
> > Sub lfooter()
> > ActiveSheet.PageSetup.LeftFooter = "&D" &
> > Sheets("Registration").Range("B7")
> > End Sub
> > You can insert this custom footer also directly via VBA Immediate window.
> > Regards,
> > Stefi
> >
> >
> > „Carlâ€� ezt Ã*rta:
> >
> > > Is there a way to add the current date AND the contents of a certain cell in
> > > the footer? I tried entering the following in the customized footer section
> > > to no avail:
> > >
> > > &[Date], [Sheets("Registration").Range("B7")]
> > >
> > > Thanks in advance.