Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation