[StevenM]

I would like to create a header so that: €œAdd Title Here€� appears on the left
side of the page, and €œPage {PAGE}€� appears on the right side of the page. So
far I got:

Sub AddHeader()
Dim oRange As Range

Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.S tart,
End:=ActiveDocument.Range.End)
With oRange.Sections(1).Headers(wdHeaderFooterPrimary). Range
..Delete
..Paragraphs.Alignment = wdAlignParagraphLeft
..InsertAfter "Add Title Here" & vbTab & vbTab & "Page "
End With
End Sub

I would like a page number to follow: "Page ", I wish I could just add: &
vbPageNumber, but I suspect that it will be more complex than that.

Any help will be greatly appreciated.

Steven Craig Miller

[StevenM]

I'm sorry I put this in the wrong section.