Add this to your code:

Dim strName As String
strName = InputBox("Please enter your name.", "Name")

'
' -- Uncomment and use whichever footers you wish
'
'ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.CenterFooter = strName & " " & Now
'ActiveSheet.PageSetup.RightFooter = ""

'Add your code to print here



--
kkkni
-----------------------------------------------------------------------
kkknie's Profile: http://www.excelforum.com/member.php...nfo&userid=754
View this thread: http://www.excelforum.com/showthread.php?threadid=26661