Date and reference number being inserted into footer after the first page

[dpaton05]

How do I put things into the footer on all pages after the first using vba?

 

[Michael M]

What reference number ?

 

[Michael M]

This for the date in the Centre

Sub MM1()
     With ActiveSheet.PageSetup
         .CenterFooter= Format(Now(), "mmmm d, yyyy") 
     End With
End Sub

 

[dpaton05]

It is a custom reference number. I also don't anything extra in the footer on the first page.

 

[dpaton05]

This is for all pages but not including the first.

 

[Michael M]

Ok, use

Sub MM1()
With ActiveSheet.PageSetup
    .DifferentFirstPageHeaderFooter = True
    .FirstPage.CenterFooter.Text = ""
    .CenterFooter = Format(Now(), "mmmm d, yyyy")
End With
End Sub

 

[dpaton05]

There is already a page number at the right of the footer on all pages. Therefore, on the first page, I just want the page number on the right, which is what I have.

On the second page, I also want the date on the left and in the centre I need 2 items on top of each other. The reference number, stored in the variable ref3 and the Grand total which will be in the last cell in column H.

 

[dpaton05]

The above is for the second page and any page after that.

 

[Michael M]

Might have been helpful if you provide sufficient information in the first post !!
UNTESTED, as I don't have the last row in H or the ref3 variable

Sub MM1()
With ActiveSheet.PageSetup
    .DifferentFirstPageHeaderFooter = True
    .FirstPage.CenterFooter.Text = ""
    .LeftFooter = Format(Now(), "mmmm d, yyyy")
    .CenterFooter = ref3 & " " & Chr(10) & .Range("H" & lr).Value
End With
End Sub

 

[dpaton05]

I'm sorry, I was still formulating the question in my mind when I wrote the initial question. I will try your answer when I am next in at work on wednesday.