fullt filnavn i et excel-ark

[indahla]

Jeg bruker følgende VB-kode i Excel for å legge til fullt filnavn i bunnteksten på et Excel-ark:

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

For Each Sh In ActiveWorkbook.Worksheets

Sh.PageSetup.CenterFooter = ActiveWorkbook.FullName

Next Sh

End Sub

 

Denne kjøres hver gang arket lagres.

 

Men, jeg vil at dette skal fungere på ALLE excel-ark, uten at jeg trenger å legge til denne koden i hver arbeidsbok. Skjønner?

 

Noen som har noen forslag?

[indahla]

ingen som vet...?