Sub GotoEOF()
'
' GotoEOF Macro
' Macro recorded Sunday, January 25, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="EOF"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoTITLE()
'
' GotoTITLE Macro
' Macro recorded Sunday, January 25, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="TITLE"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub Goto ()
'
' Goto  Macro
' Macro recorded Sunday, January 11, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:=" "
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub SetEOF()
'
' EOF Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="EOF"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub SetTITLE()
'
' TITLE Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="TITLE"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub Set ()
'
'   Macro
' Macro recorded Sunday, January 11, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=" "
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub SetCenter72Bold()
'
' Center72Bold Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 72
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
Sub CH001()
'
' CH001 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH001"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH002()
'
' CH002 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH002"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH003()
'
' CH003 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH003"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH004()
'
' CH004 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH004"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH005()
'
' CH005 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH005"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH006()
'
' CH006 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH006"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH007()
'
' CH007 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH007"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH008()
'
' CH008 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH008"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH009()
'
' CH009 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH009"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH010()
'
' CH010 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH010"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH011()
'
' CH011 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH011"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH012()
'
' CH012 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH012"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH013()
'
' CH013 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH013"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH014()
'
' CH014 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH014"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH015()
'
' CH015 Macro
' Macro recorded Friday, January 16, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH015"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH016()
'
' CH16 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH016"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH017()
'
' CH017 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH017"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH018()
'
' CH018 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH018"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH019()
'
' CH019 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH019"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH020()
'
' CH020 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH020"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH021()
'
' CH021 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH021"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH022()
'
' CH022 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH022"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH023()
'
' CH023 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH023"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH024()
'
' CH024 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH024"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH025()
'
' CH025 Macro
' Macro recorded Monday, January 19, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH025"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH026()
'
' CH026 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH026"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH027()
'
' CH027 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH027"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH028()
'
' CH028 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH028"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH029()
'
' CH029 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH029"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH030()
'
' CH030 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH030"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH031()
'
' CH031 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH031"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH032()
'
' CH032 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH032"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH033()
'
' CH033 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH033"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH034()
'
' CH034 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH034"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH035()
'
' CH035 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH035"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH036()
'
' CH036 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH036"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH037()
'
' CH037 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH037"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH038()
'
' CH038 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH038"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH039()
'
' CH039 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH039"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH040()
'
' CH040 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH040"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH041()
'
' CH041 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH041"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH042()
'
' CH042 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH042"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH043()
'
' CH043 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH043"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH044()
'
' CH044 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH044"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH045()
'
' CH045 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH045"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH046()
'
' CH046 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH046"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH047()
'
' CH047 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH047"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH048()
'
' CH048 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH048"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH049()
'
' CH049 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH049"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH050()
'
' CH050 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH050"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH051()
'
' CH051 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH051"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH052()
'
' CH052 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH052"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH053()
'
' CH053 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH053"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH054()
'
' CH054 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH054"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH055()
'
' CH055 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH055"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH056()
'
' CH056 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH056"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH057()
'
' CH057 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH057"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH058()
'
' CH058 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH058"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH059()
'
' CH059 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH059"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH060()
'
' CH060 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH060"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH061()
'
' CH061 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH061"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH062()
'
' CH062 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH062"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH063()
'
' CH063 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH063"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH064()
'
' CH064 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH064"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH065()
'
' CH065 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH065"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH066()
'
' CH066 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH066"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH067()
'
' CH067 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH067"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH068()
'
' CH068 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH068"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH069()
'
' CH069 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH069"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH070()
'
' CH070 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH070"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH071()
'
' CH071 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH071"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH072()
'
' CH072 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH072"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH073()
'
' CH073 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH073"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH074()
'
' CH074 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH074"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH075()
'
' CH075 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH075"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH076()
'
' CH076 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH076"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH077()
'
' CH077 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH077"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH078()
'
' CH078 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH078"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH079()
'
' CH079 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH079"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH080()
'
' CH080 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH080"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH081()
'
' CH081 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH081"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH082()
'
' CH082 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH082"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH083()
'
' CH083 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH083"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH084()
'
' CH084 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH084"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH085()
'
' CH085 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH085"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH086()
'
' CH086 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH086"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH087()
'
' CH087 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH087"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH088()
'
' CH088 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH088"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH089()
'
' CH089 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH089"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH090()
'
' CH090 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH090"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH091()
'
' CH091 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH091"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH092()
'
' CH092 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH092"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH093()
'
' CH093 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH093"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH094()
'
' CH094 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH094"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH095()
'
' CH095 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH095"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH096()
'
' CH096 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH096"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH097()
'
' CH097 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH097"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH098()
'
' CH098 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH098"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH099()
'
' CH099 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH099"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH100()
'
' CH100 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH100"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH101()
'
' CH101 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH101"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH102()
'
' CH102 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH102"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH103()
'
' CH103 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH103"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH104()
'
' CH104 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH104"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH105()
'
' CH105 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH105"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH106()
'
' CH106 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH106"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH107()
'
' CH107 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH107"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH108()
'
' CH108 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH108"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH109()
'
' CH109 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH109"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH110()
'
' CH110 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH110"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH111()
'
' CH111 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH111"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH112()
'
' CH112 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH112"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH113()
'
' CH113 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH113"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH114()
'
' CH114 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH114"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH115()
'
' CH115 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH115"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH116()
'
' CH116 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH116"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH117()
'
' CH117 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH117"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH118()
'
' CH118 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH118"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH119()
'
' CH119 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH119"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH120()
'
' CH120 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH120"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH121()
'
' CH121 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH121"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH122()
'
' CH122 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH122"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH123()
'
' CH123 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH123"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH124()
'
' CH124 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH124"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH125()
'
' CH125 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH125"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH126()
'
' CH126 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH126"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH127()
'
' CH127 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH127"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH128()
'
' CH128 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH128"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub CH129()
'
' CH129 Macro
' Macro recorded Wednesday, January 21, 2004 by JR
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="CH129"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH001()
'
' GotoCH001 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH001"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH002()
'
' GotoCH002 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH002"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH003()
'
' GotoCH003 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH003"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH004()
'
' GotoCH004 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH004"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH005()
'
' GotoCH005 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH005"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH006()
'
' GotoCH006 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH006"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH007()
'
' GotoCH007 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH007"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH008()
'
' GotoCH008 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH008"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH009()
'
' GotoCH009 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH009"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH010()
'
' GotoCH010 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH010"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH011()
'
' GotoCH011 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH011"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH012()
'
' GotoCH012 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH012"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH013()
'
' GotoCH013 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH013"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH014()
'
' GotoCH014 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH014"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH015()
'
' GotoCH015 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH015"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH016()
'
' GotoCH016 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH016"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH017()
'
' GotoCH017 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH017"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH018()
'
' GotoCH018 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH018"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH019()
'
' GotoCH019 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH019"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH020()
'
' GotoCH020 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH020"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH021()
'
' GotoCH021 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH021"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH022()
'
' GotoCH022 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH022"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH023()
'
' GotoCH023 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH023"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH024()
'
' GotoCH024 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH024"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH025()
'
' GotoCH025 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH025"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH026()
'
' GotoCH026 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH026"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH027()
'
' GotoCH027 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH027"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH028()
'
' GotoCH028 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH028"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH029()
'
' GotoCH029 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH029"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH030()
'
' GotoCH030 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH030"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH031()
'
' GotoCH031 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH031"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH032()
'
' GotoCH032 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH032"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH033()
'
' GotoCH033 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH033"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH034()
'
' GotoCH034 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH034"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH035()
'
' GotoCH035 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH035"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH036()
'
' GotoCH036 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH036"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH037()
'
' GotoCH037 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH037"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH038()
'
' GotoCH038 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH038"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH039()
'
' GotoCH039 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH039"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH040()
'
' GotoCH040 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH040"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH041()
'
' GotoCH041 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH041"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH042()
'
' GotoCH042 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH042"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH043()
'
' GotoCH043 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH043"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH044()
'
' GotoCH044 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH044"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH045()
'
' GotoCH045 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH045"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH046()
'
' GotoCH046 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH046"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH047()
'
' GotoCH047 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH047"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH048()
'
' GotoCH048 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH048"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH049()
'
' GotoCH049 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH049"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH050()
'
' GotoCH050 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH050"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH051()
'
' GotoCH051 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH051"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH052()
'
' GotoCH052 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH052"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH053()
'
' GotoCH053 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH053"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH054()
'
' GotoCH054 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH054"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH055()
'
' GotoCH055 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH055"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH056()
'
' GotoCH056 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH056"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH057()
'
' GotoCH057 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH057"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH058()
'
' GotoCH058 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH058"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH059()
'
' GotoCH059 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH059"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH060()
'
' GotoCH060 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH060"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH061()
'
' GotoCH061 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH061"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH062()
'
' GotoCH062 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH062"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH063()
'
' GotoCH063 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH063"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH064()
'
' GotoCH064 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH064"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH065()
'
' GotoCH065 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH065"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH066()
'
' GotoCH066 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH066"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH067()
'
' GotoCH067 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH067"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH068()
'
' GotoCH068 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH068"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH069()
'
' GotoCH069 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH069"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH070()
'
' GotoCH070 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH070"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH071()
'
' GotoCH071 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH071"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub GotoCH072()
'
' GotoCH072 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH072"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH073()
'
' GotoCH073 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH073"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH074()
'
' GotoCH074 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH074"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH075()
'
' GotoCH075 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH075"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH076()
'
' GotoCH076 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH076"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH077()
'
' GotoCH077 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH077"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH078()
'
' GotoCH078 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH078"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH079()
'
' GotoCH079 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH079"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH080()
'
' GotoCH080 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH080"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH081()
'
' GotoCH081 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH081"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH082()
'
' GotoCH082 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH082"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH083()
'
' GotoCH083 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH083"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH084()
'
' GotoCH084 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH084"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH085()
'
' GotoCH085 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH085"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH086()
'
' GotoCH086 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH086"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH087()
'
' GotoCH087 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH087"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH088()
'
' GotoCH088 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH088"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH089()
'
' GotoCH089 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH089"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH090()
'
' GotoCH090 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH090"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH091()
'
' GotoCH091 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH091"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH092()
'
' GotoCH092 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH092"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH093()
'
' GotoCH093 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH093"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH094()
'
' GotoCH094 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH094"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH095()
'
' GotoCH095 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH095"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH096()
'
' GotoCH096 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH096"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH097()
'
' GotoCH097 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH097"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH098()
'
' GotoCH098 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH098"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH099()
'
' GotoCH099 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH099"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH100()
'
' GotoCH100 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH100"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH101()
'
' GotoCH101 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH101"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH102()
'
' GotoCH102 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH102"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH103()
'
' GotoCH103 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH103"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH104()
'
' GotoCH104 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH104"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH105()
'
' GotoCH105 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH105"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH106()
'
' GotoCH106 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH106"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH107()
'
' GotoCH107 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH107"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH108()
'
' GotoCH108 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH108"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH109()
'
' GotoCH109 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH109"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Sub GotoCH110()
'
' GotoCH110 Macro
' Macro recorded Wednesday, February 04, 2004 by JR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="CH110"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
Sub HorizontalLineTo10Width()
'
' HorizontalLineTo10Width Macro
' Macro recorded Saturday, August 21, 2004 by JR
'
    Selection.InlineShapes(1).Fill.Visible = msoTrue
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.ForeColor.RGB = RGB(128, 128, 128)
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).HorizontalLineFormat.WidthType = _
        wdHorizontalLinePercentWidth
    Selection.InlineShapes(1).HorizontalLineFormat.PercentWidth = 10
    Selection.InlineShapes(1).Height = 1.5
    Selection.InlineShapes(1).HorizontalLineFormat.NoShade = False
    Selection.InlineShapes(1).HorizontalLineFormat.Alignment = _
        wdHorizontalLineAlignCenter
End Sub
Sub AddRDate()
'
' AddRDate Macro
' Macro recorded 9/10/2004 by jr
'
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 18
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
'    Selection.Font.Bold = wdToggle
    Selection.InsertDateTime DateTimeFormat:="dddd, MMMM dd, yyyy", _
        InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:= _
        wdCalendarWestern, InsertAsFullWidth:=False
End Sub