Sub header() MsgBox Documents("Transfer.doc").Sections(2). _ Footers(wdHeaderFooterFirstPage).Range.TextEnd Sub