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