Dim doc As IManage.IManDocument Set doc = ext.GetDocumentFromPath(FileName) Dim sh As Excel.Worksheet Set sh = Application.ActiveWorkbook.ActiveSheet sh.PageSetup.RightFooter = doc.Number & "v" & doc.Version & " - " & doc.Description