Excel footer font size 1

[jamierobinson]

I have the following macro that inserts the filename into the left footer of an excel spread sheet. How do I change the font size to 8 point?

Sub InsertFooter()

Dim myString As String

myString = ActiveWorkbook.FullName & "\" & "&a" & " - " _
& "&d" & ">" & "&t"
For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.LeftFooter = myString

Next sht

End Sub

Thanks
-jamie

 

[petrosky]

Hi,

This should do the trick for you.

Sub InsertFooter()

Dim myString As String
Dim finalString As String

myString = ActiveWorkbook.FullName & "\" & "&a" & " - " _
& "&d" & ">" & "&t"
finalString = "&36" & myString

For Each sht In ActiveWorkbook.Sheets

sht.PageSetup.LeftFooter = finalString

Next sht

End Sub

Obviously change the 36 to the required size.

Hope this helps.

Regards,

Peter Remember- It's nice to be important,
but it's important to be nice