Hello from Steved
I put in 18-Aug-03 in MsgBox
When I run the Macro I get 2123, How or can this be
corrected to show what is in the MsgBox. As I have Other
information in the same footer is it possible just to
update the first row and leave rows 2 to 4 as is. Hence 18-
Aug-03 is shown on row 1.

Sub UpdateFooter()
Dim UpdateFooter As String
UpdateFooter = InputBox("Enter New Date:")
MsgBox "The New Date is " & UpdateFooter '
Sheets("Pt Chevalier-St Heliers Service").Select
With ActiveSheet.PageSetup
UpdateFooter = ActiveCell.Text
.RightFooter = UpdateFooter
End With
End Sub

Thankyou