Setting a excel custom format in the footer 1

[vba317]

I am trying to set a custom footer in excel 2003. I have created a module with the formatting information in it but all I get is the variable in the footer. Any help would be appreciated.

In the footer I have [dtmDate] in the left section

Public Sub SetFooter()
' put customer name, date and Order# in footer
' [URL unfurl="true"]www.contextures.com[/URL]
Dim wb As Workbook
Dim wsOrder As Worksheet
Dim dtmDate As Date

Set wb = ThisWorkbook
Set wsOrder = wb.Sheets("Orders")

dtmDate = wsOrder.Range("OrderDate").Value

    With wsOrder.PageSetup
        .LeftFooter = _
        Format(dtmDate, "dddd, mmmm dd,yyyy")
      
    End With

End Sub

 

[SkipVought]

hi,

In the footer I have [dtmDate] in the left section

WHY? Excel knows NOTHING about your date varaiable, dtmDate!

Just run the procedure!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[vba317]

Thanks!

 

[SkipVought]

BTW, no sense in assigning objects & variables when none of them are ever used again in this procedure

Public Sub SetFooter()
' put customer name, date and Order# in footer
' [URL unfurl="true"]www.contextures.com[/URL]

    With ThisWorkbook.Sheets("Orders")
    
        .PageSetup.LeftFooter = Format(.Range("OrderDate").Value, "dddd, mmmm dd,yyyy")
    
    End With

End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}