Global Macro: How to Do It Best

[Rougy]

Hi,

We want to incorporate this fairly handy macro and make it available to all users on our LAN. Any suggestions on how to go about it best? Thanks.

*****

Sub footer()
Dim vFileName As String
Dim vRevised As String
Dim vCreated As String

With ActiveWorkbook
vFileName = .FullName
vCreated = Format(.BuiltinDocumentProperties(11).Value, "mm/dd/yyyy&quot
End With

vRevised = Format(Now, "mm/dd/yyyy&quot

With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftFooter = "&7" & vFileName
.CenterFooter = "&10Page &P of &N" & Chr(10)
.RightFooter = "&7Revised Date: " & vRevised _
& Chr(10) _
& "Created: " & vCreated
End With

End Sub

-----
The death of dogma is the birth of reason.