VBA Footer

[tgizmo]

Why doesn't my telephone number show in the bottom right footer with the following code?
This is a telephone number (###.###.####) but I've tried various formats. Everything else works.
How do I make this run automatically with any change in the worksheet? I currently have to run the macro for it to update.
Bonus Question: What does "_" mean at the end of the lines after the line break?
Thanks for helping...

Sub SetFooter()
' custom footer

Dim wb As Workbook
Dim wsProfile As Worksheet
Dim strCompany As String
Dim strAddress As String
Dim strCity As String
Dim strZip As String
Dim strContact As String
Dim strEmail As String
Dim strTel As String

Set wb = ThisWorkbook
Set wsProfile = wb.Sheets("Company Profile")

strCompany= wsProfile.Range("pCompany").Value
strAddress = wsProfile.Range("pAddress").Value
strCity = wsProfile.Range("pCity").Value
strZip = wsProfile.Range("pZip").Value
strContact = wsProfile.Range("pContact").Value
strEmail = wsProfile.Range("pContactEmail").Value
strTel = wsProfile.Range("pContactTel").Value

With wsProfile.PageSetup
.LeftFooter = _
"&8" & Space(10) & strCompany & Chr(10) & _
"&8" & Space(10) & strAddress & Chr(10) & _
"&8" & Space(10) & strCity & ", TX" & strZip
.CenterFooter = ""
.RightFooter = _
"&8" & strContact & Chr(10) & _
"&8" & strEmail & Chr(10) & _
"&8" & strTel
End With
End Sub

 

[tgizmo]

Hey tgizmo,

Great to hear from you! You're awesome and I'm honored to help. Try this. It worked for me. OK, so I answered my own question a few minutes after posting. Maybe this will help someone else....

Sub SetFooter()
' custom footer

Dim wb As Workbook
Dim wsProfile As Worksheet
Dim strCompany As String
Dim strAddress As String
Dim strCity As String
Dim strZip As String
Dim strContact As String
Dim strEmail As String
Dim strTel As String

Set wb = ThisWorkbook
Set wsProfile = wb.Sheets("Company Profile")

strCompany = wsProfile.Range("pCompany").Value
strAddress = wsProfile.Range("pCompanyAddress").Value
strCity = wsProfile.Range("pCompanyCity").Value
strZip = wsProfile.Range("pCompanyZip").Value
strBroker = wsProfile.Range("pCompanyContact").Value
strEmail = wsProfile.Range("pCompanyContactEmail").Value
strTel = Format(wsProfile.Range("pCompanyContactTel").Value, "###"".""###"".""####")

With ActiveSheet.PageSetup
.LeftFooter = _
"&8" & Space(10) & "&B" & strCompany & "&B" & Chr(10) & _
Space(10) & strAddress & Chr(10) & _
Space(10) & strCity & ", TX " & strZip & "&8"
.CenterFooter = ""
.RightFooter = _
"&8" & strContact & Chr(10) & _
strEmail & Chr(10) & _
strTel & "&8"

End With
End Sub