Hi Dkline

Try this with the values in A1:A4

Dim str As String
str = "T: " & Range("A1").Text & " GA: " & Range("A2").Text & " GS: " & Range("A3").Text & " 7P: " & Range("A4").Text
With ActiveSheet.PageSetup
.LeftFooter = "&8Date Prepared: &D&T" & Chr(10) & str
End With


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Dkline" wrote in message ...
I am using Excel '97.

What I need to do is take several numbers from the spreadsheet and stuff
them into the left footer in the Excel footnote with formatting of #,##0.00
for each number.

Given these variable values :
66,000.00
190,575.37
1,987,082.34
387,082.34

I need to create a string that will read out as:
T: 66,000.00 GA: 190,575.37 GS: 1,987,082.34 7P: 387,082.34

With ActiveSheet.PageSetup
.LeftFooter = "&8Date Prepared: &D&T" & Chr(10) & the string above
End With

What I'm striggling with is how to format the numbers inside the string. Is
there a function I'm missing that solves my problem? How can I do this?