Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Footer (Update Date)
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Footer (Update Date)
-----Original Message----- 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 Hi Steved, just a thought, you can save yourself from possible ambiguous referencing by avoiding naming macros and variables with the same name. Examine line 7 and you will notice that you have replaced the date assigned to the variable 'UpdateFooter' ... UpdateFooter = ActiveCell.Text This may explain the problem... Luck Jonathan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto update information in footer | Excel Worksheet Functions | |||
Header/Footer to update on all sheets | Excel Discussion (Misc queries) | |||
Footer - Automatic Date Update | Excel Discussion (Misc queries) | |||
Automatic update of footer macro | Excel Worksheet Functions | |||
How do I update the built in header and footer pull down lists? | Excel Discussion (Misc queries) |