For x = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(x).PageSetup.RightFooter = _
ActiveWorkbook.FullName
Next
End
End Sub
hallo
obiges ist mein makro, welches mir den gesamten dateipfad in die fußzeile übergibt! allerdings möchte ich es so haben das es dieses mit der schriftgröße 6 erledigt! vorschläge?
danke im voraus!
grüße