Hi
For the second one you ma use the following code: Put it in your
workbook moudle 8links cell A1 of each sheet to the footer):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = wkSht.Range("A1").value
End With
Next wkSht
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany

1st Question, I have a colored VBA textbox that is linked to a cell.
Sorta used for a form so people know to input their name there. I
want
to be able to print that without seeing the outline of the textbox or
color shade. I tried object printing False but it won't print the
input in the text box. maybe it needs some code?

2nd Question, when I have a header or a footer and want to link it to
a cell, how would I do that. For instance when they input their name
it then Prints their name from that cell at the top or bottom of
every
page. I looked in the custom header and footer but no go. Thanks for
your help.


---
Message posted from http://www.ExcelForum.com/