Inserting a footer

[pukenzz]

Is there possibly a macro or a vba that can be used so that any existing excel file I go into in one click of a button it will insert a footer, bottom left, 8pt calibri, to a specific font color?

 

[pukenzz]

should have specified that I want it to be file path file name

 

[jolivanes]

This will give you path and filename.
&[Path]&[File]
Experiment with this and see how far it gets you.

 With ActiveSheet.PageSetup
    .LeftFooter = "&""Calibri""&8"&Kff0000 & sFileName
    .CenterFooter = ""
    .RightFooter = ""
   .CenterFooter = ""
    End With

 

[jolivanes]

BTW, you can find the hexidecimal color palette here
http://dmcritchie.mvps.org/excel/colors.htm

 

[jolivanes]

I tried this and that seems to work.
You might want to put the code in your Personal workbook to have it at your finger tips.

Sub Footer_Left()
    With ActiveSheet.PageSetup
    .LeftFooter = "&""Calibri""&8&Kff0000" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    .CenterFooter = ""
    .RightFooter = ""
   .CenterFooter = ""
    End With
End Sub