ktrask36
asked onÂ
Word 2007 tab order
I have written a macro that sets the tab order for my Word 2007 form. It runs onExit of eac field. I'm trying to figure out how to change the macro so I can click out of one field and into another and have the macro resume no matter which field I have the cursor in.
So if a user is on the tenth field but needs to make a change back on field 5 they are able to do so. Right now they cannot with the way the macro currently is.
Sub taborder()
'
' taborder Macro
' Macro created 1/3/2011 by ktrask
'
'
'declare a variable to hold the field bookmark name
Dim strCurrBookmark As String
'decipher what type of form field you're currently using
If Selection.FormFields.Count
  'If field is not a textbox but a check- or listbox, capture that name
  strCurrBookmark = Selection.FormFields(1).Na
'if selection is a text field, capture that name
ElseIf Selection.FormFields.Count
  'add whatever the bookmark name is, to the designated variable
  strCurrBookmark = Selection.Bookmarks(Select
End If
Select Case strCurrBookmark
   'if the cursor is currently located in the field that contains the bookark name in the "case" statement,
  'the lines below it will be enacted, thereby jumping to the field you've indicated.
  Case "bkEntity"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdate"
  Case "bkdate"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkconsultant"
  Case "bkconsultant"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklocation"
  Case "bklocation"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcontact"
  Case "bkcontact"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk1floor"
  Case "bk1floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk2floor"
  Case "bk2floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk3floor"
  Case "bk3floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkbasement"
  Case "bkbasement"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkother"
  Case "bkother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes1"
  Case "bktypyes1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno1"
  Case "bktypno1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes2"
  Case "bktypyes2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno2"
  Case "bktypno2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes3"
  Case "bktypyes3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno3"
  Case "bktypno3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes4"
  Case "bktypyes4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno4"
  Case "bktypno4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes5"
  Case "bktypyes5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno5"
  Case "bktypno5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkyearbuilt"
  Case "bkyearbuilt"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmajren"
  Case "bkmajren"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksqftleased"
  Case "bksqftleased"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktfwhom"
  Case "bktfwhom"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkconnostories"
  Case "bkconnostories"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksketch"
  Case "bksketch"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkphotos"
  Case "bkphotos"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec1"
  Case "bkdimsec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec1"
  Case "bkavehtsec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec1"
  Case "bkareasec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec1"
  Case "bkperimetersec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec1"
  Case "bkshapesec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec2"
  Case "bkdimsec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec2"
  Case "bkavehtsec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec2"
  Case "bkareasec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec2"
  Case "bkperimetersec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec2"
  Case "bkshapesec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec3"
  Case "bkdimsec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec3"
  Case "bkavehtsec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec3"
  Case "bkareasec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec3"
  Case "bkperimetersec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec3"
  Case "bkshapesec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec4"
  Case "bkdimsec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec4"
  Case "bkavehtsec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec4"
  Case "bkareasec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec4"
  Case "bkperimetersec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec4"
  Case "bkshapesec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec5"
  Case "bkdimsec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec5"
  Case "bkavehtsec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec5"
  Case "bkareasec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec5"
  Case "bkperimetersec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec5"
  Case "bkshapesec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec6"
  Case "bkdimsec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec6"
  Case "bkavehtsec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec6"
  Case "bkareasec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec6"
  Case "bkperimetersec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec6"
  Case "bkshapesec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec7"
  Case "bkdimsec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec7"
  Case "bkavehtsec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec7"
  Case "bkareasec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec7"
  Case "bkperimetersec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec7"
  Case "bkshapesec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec8"
  Case "bkdimsec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec8"
  Case "bkavehtsec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec8"
  Case "bkareasec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec8"
  Case "bkperimetersec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec8"
  Case "bkshapesec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsectotal"
  Case "bkdimsectotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehttotal"
  Case "bkavehttotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareatotal"
  Case "bkareatotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetertotal"
  Case "bkperimetertotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapetotal"
  Case "bkshapetotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcframe"
  Case "bkcframe"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcnoncomb"
  Case "bkcnoncomb"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcfireresist"
  Case "bkcfireresist"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcmasonncomb"
  Case "bkcmasonncomb"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcjmasonary"
  Case "bkcjmasonary"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcother"
  Case "bkcother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofflat"
  Case "bkroofflat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofpitched"
  Case "bkroofpitched"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmetal"
  Case "bkroofmetal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofslate"
  Case "bkroofslate"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofwood"
  Case "bkroofwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofasphalt"
  Case "bkroofasphalt"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmembrane"
  Case "bkroofmembrane"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofother"
  Case "bkroofother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofage"
  Case "bkroofage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofcondition"
  Case "bkroofcondition"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextwood"
  Case "bkextwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextglass"
  Case "bkextglass"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetal"
  Case "bkextmetal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetalclad"
  Case "bkextmetalclad"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextbrick"
  Case "bkextbrick"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextsiding"
  Case "bkextsiding"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextblock"
  Case "bkextblock"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextconcrete"
  Case "bkextconcrete"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextcomposite"
  Case "bkextcomposite"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextother"
  Case "bkextother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdroof"
  Case "bksupwdroof"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdfloor"
  Case "bksupwdfloor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalrf"
  Case "bksupetalrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalfl"
  Case "bksupmetalfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupstructrf"
  Case "bksupstructrf"
    Selection.GoTo What:=wdGoToBookark, Name:="bksupstructfl"
  Case "bksupstructfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtrf"
  Case "bksupconcrtrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtfl"
  Case "bksupconcrtfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbrf"
  Case "bksupconcretslbrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbfl"
  Case "bksupconcrtslbfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherrf"
  Case "bksupotherrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherfl"
  Case "bksupotherfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkintwalls"
  Case "bkintwalls"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkintbasement"
  Case "bkintbasement"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectage"
  Case "bjelectage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectcond"
  Case "bkelectcond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgents"
  Case "bkelectgents"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectfused"
  Case "bkelectfused"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbreakers"
  Case "bkelectbreakers"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgfci"
  Case "bkelectgfci"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectemg"
  Case "bkelectemg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectedp"
  Case "bkelectedp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectlight"
  Case "bkelectlight"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgyes"
  Case "bkelectbgyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgno"
  Case "bkelectbgno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevyes"
  Case "bkelevyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevno"
  Case "bkelevno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevland"
  Case "bkelevland"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevusetyp"
  Case "bkelevusetyp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsyes"
  Case "bkelevlftsyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsno"
  Case "bkelevlftsno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsland"
  Case "bkelevlftsland"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsusetyp"
  Case "bkelevlftsusetyp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccyes"
  Case "bkelevccyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccno"
  Case "bkelevccno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcyes"
  Case "bkelevmcyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcno"
  Case "bkelevmcno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbage"
  Case "bkplumbage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcond"
  Case "bkplumbcond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbwell"
  Case "bkplumbwell"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtype"
  Case "bkplumbtype"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtested"
  Case "bkplumbtested"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbps"
  Case "bkplumbps"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother"
  Case "bkplumbother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcopper"
  Case "bkplumbcopper"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbplastic"
  Case "bkplumbplastic"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother2"
  Case "bkplumbother2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage"
  Case "bkhvacage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond"
  Case "bkhvaccond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacelec"
  Case "bkhvacelec"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotair"
  Case "bkhvachotair"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotwat"
  Case "bkhvachotwat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacpou"
  Case "bkhvacpou"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacir"
  Case "bkhvacir"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstove"
  Case "bkhvacstove"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaclpgas"
  Case "bkhvaclpgas"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacnatgas"
  Case "bkhvacnatgas"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacoil"
  Case "bkhvacoil"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacwood"
  Case "bkhvacwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage2"
  Case "bkhvacage2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond2"
  Case "bkhvaccond2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstboiler"
  Case "bkhvacstboiler"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacboilrm"
  Case "bkhvacboilrm"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccurcert"
  Case "bkhvaccurcert"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacmscert"
  Case "bkhvacmscert"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacbldgheated"
  Case "bkhvacbldgheated"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacos"
  Case "bkhvacos"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacaircond"
  Case "bkhvacaircond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccent"
  Case "bkhvaccent"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacunit"
  Case "bkhvacunit"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknotes"
  Case "bknotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfirediv"
  Case "bkfirediv"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknumber"
  Case "bknumber"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkparapetted"
  Case "bkparapetted"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkprotnotes"
  Case "bkprotnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdistfiredept"
  Case "bkdistfiredept"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkpaid"
  Case "bkpaid"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkpaidcall"
  Case "bkpaidcall"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkvolunteer"
  Case "bkvolunteer"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknearesthyd"
  Case "bknearesthyd"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkotherwtsup"
  Case "bkotherwtsup"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersyes"
  Case "bksprinlersyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersno"
  Case "bksprinklersno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregyes"
  Case "bksprinkregyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregno"
  Case "bksprinkregno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypsyswet"
  Case "bktypsyswet"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysdry"
  Case "bktypesysdry"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysareaprot"
  Case "bktypesysareaprot"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontyes"
  Case "bkservcontyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontno"
  Case "bkservcontno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdatelstserv"
  Case "bkdatelstserv"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmyes"
  Case "bktaperalarmyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmno"
  Case "bktamperalarmno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysyes"
  Case "bkfixedestsysyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysno"
  Case "bkfixedestsysno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsystype"
  Case "bkfixedestsystype"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysservco
  Case "bkfixedestsysservcon"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextyes"
  Case "bkfireextyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextno"
  Case "bkfireextno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqyes"
  Case "bkfireextadqyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqno"
  Case "bkfireextadqno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservyes"
  Case "bkannualservyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservno"
  Case "bkannualservno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksyes"
  Case "bkmonthlychksyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksno"
  Case "bkmonthlychksno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmheat"
  Case "bkalarmheat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmsmoke"
  Case "bkalarmsmoke"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmintru"
  Case "bkalarmintru"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpanic"
  Case "bkalarmpanic"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmhardw"
  Case "bkalarmhardw"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmbattery"
  Case "bkalarmbattery"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpullstat"
  Case "bkalarmpullstat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmaud"
  Case "bkalarmaud"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmvis"
  Case "bkalarmvis"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmcs"
  Case "bkalarmcs"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmdispolst"
  Case "bkalarmdispolst"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeyes"
  Case "bklifeaeyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeno"
  Case "bklifeaeno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaena"
  Case "bklifeaena"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaenotes"
  Case "bklifeaenotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsyes"
  Case "bklifeextsyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsno"
  Case "bklifeextsno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsna"
  Case "bklifeextsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsnotes"
  Case "bklifeextsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslyes"
  Case "bklifeextslyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslno"
  Case "bklifeextslno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslna"
  Case "bklifeextslna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslnotes"
  Case "bklifeextslnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccyes"
  Case "bklifeeccyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccno"
  Case "bklifeeccno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccna"
  Case "bklifeeccna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccnotes"
  Case "bklifeeccnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelyes"
  Case "bklifeelyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelno"
  Case "bklifeelno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelna"
  Case "bklifeelna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelnotes"
  Case "bklifeelnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondye
  Case "bklifefireesccondyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondno
  Case "bklifefireesccondno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondna
  Case "bklifefireesccondna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondno
  Case "bklifefireesccondnot"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhouseok"
  Case "bkshhouseok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousena"
  Case "bkshhousena"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousenotes"
  Case "bkshhousenotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscok"
  Case "bkshscok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscna"
  Case "bkshscna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscnotes"
  Case "bkshscnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsok"
  Case "bkshcsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsna"
  Case "bkshcsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsnotes"
  Case "bkshcsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsok"
  Case "bkshfsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsna"
  Case "bkshfsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsnotes"
  Case "bkshfsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcok"
  Case "bkshwcok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcna"
  Case "bkscwcna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcnotes"
  Case "bkshwcnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptok"
  Case "bkshleadptok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptukn"
  Case "bkshleadptukn"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptnotes"
  Case "bkshleadptnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwok"
  Case "bkshhazwok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwna"
  Case "bkshhazwna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwnotes"
  Case "bkshhazwnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspok"
  Case "bkshspok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspna"
  Case "bkshspna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspnotes"
  Case "bkshspnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookok"
  Case "bkshcookok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookna"
  Case "bkshcookna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcooknotes"
  Case "bkshcookna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsok"
  Case "bkshfldsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsna"
  Case "bkshfldsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsnotes"
  Case "bkshfldsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmok"
  Case "bkshmmok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmna"
  Case "bkshmmna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmnotes"
  Case "bkshmmnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsok"
  Case "bkshvmsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsna"
  Case "bkshvmsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsnotes"
  Case "bkshvmsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisfront"
  Case "bkeedisfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisrear"
  Case "bkeedisrear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisleft"
  Case "bkeedisleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisright"
  Case "bkeedisright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontfront"
  Case "bkeecontfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontrear"
  Case "bkeecontrear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontleft"
  Case "bkeecontleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontright"
  Case "bkeecontright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpfront"
  Case "bkeeoccpfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccprear"
  Case "bkeeoccprear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpleft"
  Case "bkeeoccpleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpright"
  Case "bkeeoccpright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeepoor"
  Case "bkeepoor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeba"
  Case "bkeeba"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeavg"
  Case "bkeeavg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeabavg"
  Case "bkeeabavg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeexc"
  Case "bkeeexc"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdtlstms"
  Case "bkdtlstms"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneyes"
  Case "bknewmsdoneyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneno"
  Case "bknewmsdoneno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmsclass"
  Case "bkmsclass"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmsprobmaxloss"
  Case "bkmsproblmaxloss"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkentity2"
  Case "bkentity2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkloc2"
  Case "bkloc2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdate2"
  Case "bkdate2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknarr"
  Case "bknarr"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkapiyes"
  Case "bkapiyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkapino"
 Â
  End Select
Â
End Sub
So if a user is on the tenth field but needs to make a change back on field 5 they are able to do so. Right now they cannot with the way the macro currently is.
Sub taborder()
'
' taborder Macro
' Macro created 1/3/2011 by ktrask
'
'
'declare a variable to hold the field bookmark name
Dim strCurrBookmark As String
'decipher what type of form field you're currently using
If Selection.FormFields.Count
  'If field is not a textbox but a check- or listbox, capture that name
  strCurrBookmark = Selection.FormFields(1).Na
'if selection is a text field, capture that name
ElseIf Selection.FormFields.Count
  'add whatever the bookmark name is, to the designated variable
  strCurrBookmark = Selection.Bookmarks(Select
End If
Select Case strCurrBookmark
   'if the cursor is currently located in the field that contains the bookark name in the "case" statement,
  'the lines below it will be enacted, thereby jumping to the field you've indicated.
  Case "bkEntity"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdate"
  Case "bkdate"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkconsultant"
  Case "bkconsultant"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklocation"
  Case "bklocation"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcontact"
  Case "bkcontact"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk1floor"
  Case "bk1floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk2floor"
  Case "bk2floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bk3floor"
  Case "bk3floor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkbasement"
  Case "bkbasement"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkother"
  Case "bkother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes1"
  Case "bktypyes1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno1"
  Case "bktypno1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes2"
  Case "bktypyes2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno2"
  Case "bktypno2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes3"
  Case "bktypyes3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno3"
  Case "bktypno3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes4"
  Case "bktypyes4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno4"
  Case "bktypno4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes5"
  Case "bktypyes5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypno5"
  Case "bktypno5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkyearbuilt"
  Case "bkyearbuilt"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmajren"
  Case "bkmajren"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksqftleased"
  Case "bksqftleased"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktfwhom"
  Case "bktfwhom"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkconnostories"
  Case "bkconnostories"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksketch"
  Case "bksketch"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkphotos"
  Case "bkphotos"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec1"
  Case "bkdimsec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec1"
  Case "bkavehtsec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec1"
  Case "bkareasec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec1"
  Case "bkperimetersec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec1"
  Case "bkshapesec1"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec2"
  Case "bkdimsec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec2"
  Case "bkavehtsec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec2"
  Case "bkareasec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec2"
  Case "bkperimetersec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec2"
  Case "bkshapesec2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec3"
  Case "bkdimsec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec3"
  Case "bkavehtsec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec3"
  Case "bkareasec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec3"
  Case "bkperimetersec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec3"
  Case "bkshapesec3"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec4"
  Case "bkdimsec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec4"
  Case "bkavehtsec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec4"
  Case "bkareasec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec4"
  Case "bkperimetersec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec4"
  Case "bkshapesec4"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec5"
  Case "bkdimsec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec5"
  Case "bkavehtsec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec5"
  Case "bkareasec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec5"
  Case "bkperimetersec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec5"
  Case "bkshapesec5"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec6"
  Case "bkdimsec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec6"
  Case "bkavehtsec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec6"
  Case "bkareasec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec6"
  Case "bkperimetersec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec6"
  Case "bkshapesec6"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec7"
  Case "bkdimsec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec7"
  Case "bkavehtsec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec7"
  Case "bkareasec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec7"
  Case "bkperimetersec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec7"
  Case "bkshapesec7"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec8"
  Case "bkdimsec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec8"
  Case "bkavehtsec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec8"
  Case "bkareasec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec8"
  Case "bkperimetersec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec8"
  Case "bkshapesec8"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsectotal"
  Case "bkdimsectotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkavehttotal"
  Case "bkavehttotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkareatotal"
  Case "bkareatotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetertotal"
  Case "bkperimetertotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshapetotal"
  Case "bkshapetotal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcframe"
  Case "bkcframe"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcnoncomb"
  Case "bkcnoncomb"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcfireresist"
  Case "bkcfireresist"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcmasonncomb"
  Case "bkcmasonncomb"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcjmasonary"
  Case "bkcjmasonary"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkcother"
  Case "bkcother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofflat"
  Case "bkroofflat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofpitched"
  Case "bkroofpitched"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmetal"
  Case "bkroofmetal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofslate"
  Case "bkroofslate"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofwood"
  Case "bkroofwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofasphalt"
  Case "bkroofasphalt"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmembrane"
  Case "bkroofmembrane"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofother"
  Case "bkroofother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofage"
  Case "bkroofage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkroofcondition"
  Case "bkroofcondition"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextwood"
  Case "bkextwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextglass"
  Case "bkextglass"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetal"
  Case "bkextmetal"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetalclad"
  Case "bkextmetalclad"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextbrick"
  Case "bkextbrick"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextsiding"
  Case "bkextsiding"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextblock"
  Case "bkextblock"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextconcrete"
  Case "bkextconcrete"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextcomposite"
  Case "bkextcomposite"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkextother"
  Case "bkextother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdroof"
  Case "bksupwdroof"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdfloor"
  Case "bksupwdfloor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalrf"
  Case "bksupetalrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalfl"
  Case "bksupmetalfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupstructrf"
  Case "bksupstructrf"
    Selection.GoTo What:=wdGoToBookark, Name:="bksupstructfl"
  Case "bksupstructfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtrf"
  Case "bksupconcrtrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtfl"
  Case "bksupconcrtfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbrf"
  Case "bksupconcretslbrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbfl"
  Case "bksupconcrtslbfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherrf"
  Case "bksupotherrf"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherfl"
  Case "bksupotherfl"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkintwalls"
  Case "bkintwalls"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkintbasement"
  Case "bkintbasement"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectage"
  Case "bjelectage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectcond"
  Case "bkelectcond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgents"
  Case "bkelectgents"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectfused"
  Case "bkelectfused"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbreakers"
  Case "bkelectbreakers"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgfci"
  Case "bkelectgfci"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectemg"
  Case "bkelectemg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectedp"
  Case "bkelectedp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectlight"
  Case "bkelectlight"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgyes"
  Case "bkelectbgyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgno"
  Case "bkelectbgno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevyes"
  Case "bkelevyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevno"
  Case "bkelevno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevland"
  Case "bkelevland"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevusetyp"
  Case "bkelevusetyp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsyes"
  Case "bkelevlftsyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsno"
  Case "bkelevlftsno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsland"
  Case "bkelevlftsland"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsusetyp"
  Case "bkelevlftsusetyp"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccyes"
  Case "bkelevccyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccno"
  Case "bkelevccno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcyes"
  Case "bkelevmcyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcno"
  Case "bkelevmcno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbage"
  Case "bkplumbage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcond"
  Case "bkplumbcond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbwell"
  Case "bkplumbwell"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtype"
  Case "bkplumbtype"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtested"
  Case "bkplumbtested"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbps"
  Case "bkplumbps"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother"
  Case "bkplumbother"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcopper"
  Case "bkplumbcopper"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbplastic"
  Case "bkplumbplastic"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother2"
  Case "bkplumbother2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage"
  Case "bkhvacage"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond"
  Case "bkhvaccond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacelec"
  Case "bkhvacelec"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotair"
  Case "bkhvachotair"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotwat"
  Case "bkhvachotwat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacpou"
  Case "bkhvacpou"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacir"
  Case "bkhvacir"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstove"
  Case "bkhvacstove"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaclpgas"
  Case "bkhvaclpgas"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacnatgas"
  Case "bkhvacnatgas"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacoil"
  Case "bkhvacoil"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacwood"
  Case "bkhvacwood"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage2"
  Case "bkhvacage2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond2"
  Case "bkhvaccond2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstboiler"
  Case "bkhvacstboiler"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacboilrm"
  Case "bkhvacboilrm"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccurcert"
  Case "bkhvaccurcert"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacmscert"
  Case "bkhvacmscert"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacbldgheated"
  Case "bkhvacbldgheated"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacos"
  Case "bkhvacos"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacaircond"
  Case "bkhvacaircond"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccent"
  Case "bkhvaccent"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacunit"
  Case "bkhvacunit"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknotes"
  Case "bknotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfirediv"
  Case "bkfirediv"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknumber"
  Case "bknumber"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkparapetted"
  Case "bkparapetted"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkprotnotes"
  Case "bkprotnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdistfiredept"
  Case "bkdistfiredept"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkpaid"
  Case "bkpaid"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkpaidcall"
  Case "bkpaidcall"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkvolunteer"
  Case "bkvolunteer"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknearesthyd"
  Case "bknearesthyd"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkotherwtsup"
  Case "bkotherwtsup"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersyes"
  Case "bksprinlersyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersno"
  Case "bksprinklersno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregyes"
  Case "bksprinkregyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregno"
  Case "bksprinkregno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypsyswet"
  Case "bktypsyswet"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysdry"
  Case "bktypesysdry"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysareaprot"
  Case "bktypesysareaprot"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontyes"
  Case "bkservcontyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontno"
  Case "bkservcontno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdatelstserv"
  Case "bkdatelstserv"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmyes"
  Case "bktaperalarmyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmno"
  Case "bktamperalarmno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysyes"
  Case "bkfixedestsysyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysno"
  Case "bkfixedestsysno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsystype"
  Case "bkfixedestsystype"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysservco
  Case "bkfixedestsysservcon"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextyes"
  Case "bkfireextyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextno"
  Case "bkfireextno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqyes"
  Case "bkfireextadqyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqno"
  Case "bkfireextadqno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservyes"
  Case "bkannualservyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservno"
  Case "bkannualservno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksyes"
  Case "bkmonthlychksyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksno"
  Case "bkmonthlychksno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmheat"
  Case "bkalarmheat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmsmoke"
  Case "bkalarmsmoke"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmintru"
  Case "bkalarmintru"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpanic"
  Case "bkalarmpanic"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmhardw"
  Case "bkalarmhardw"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmbattery"
  Case "bkalarmbattery"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpullstat"
  Case "bkalarmpullstat"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmaud"
  Case "bkalarmaud"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmvis"
  Case "bkalarmvis"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmcs"
  Case "bkalarmcs"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmdispolst"
  Case "bkalarmdispolst"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeyes"
  Case "bklifeaeyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeno"
  Case "bklifeaeno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaena"
  Case "bklifeaena"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaenotes"
  Case "bklifeaenotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsyes"
  Case "bklifeextsyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsno"
  Case "bklifeextsno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsna"
  Case "bklifeextsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsnotes"
  Case "bklifeextsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslyes"
  Case "bklifeextslyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslno"
  Case "bklifeextslno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslna"
  Case "bklifeextslna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslnotes"
  Case "bklifeextslnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccyes"
  Case "bklifeeccyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccno"
  Case "bklifeeccno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccna"
  Case "bklifeeccna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccnotes"
  Case "bklifeeccnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelyes"
  Case "bklifeelyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelno"
  Case "bklifeelno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelna"
  Case "bklifeelna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelnotes"
  Case "bklifeelnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondye
  Case "bklifefireesccondyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondno
  Case "bklifefireesccondno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondna
  Case "bklifefireesccondna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondno
  Case "bklifefireesccondnot"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhouseok"
  Case "bkshhouseok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousena"
  Case "bkshhousena"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousenotes"
  Case "bkshhousenotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscok"
  Case "bkshscok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscna"
  Case "bkshscna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshscnotes"
  Case "bkshscnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsok"
  Case "bkshcsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsna"
  Case "bkshcsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsnotes"
  Case "bkshcsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsok"
  Case "bkshfsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsna"
  Case "bkshfsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsnotes"
  Case "bkshfsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcok"
  Case "bkshwcok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcna"
  Case "bkscwcna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcnotes"
  Case "bkshwcnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptok"
  Case "bkshleadptok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptukn"
  Case "bkshleadptukn"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptnotes"
  Case "bkshleadptnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwok"
  Case "bkshhazwok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwna"
  Case "bkshhazwna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwnotes"
  Case "bkshhazwnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspok"
  Case "bkshspok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspna"
  Case "bkshspna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshspnotes"
  Case "bkshspnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookok"
  Case "bkshcookok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookna"
  Case "bkshcookna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshcooknotes"
  Case "bkshcookna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsok"
  Case "bkshfldsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsna"
  Case "bkshfldsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsnotes"
  Case "bkshfldsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmok"
  Case "bkshmmok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmna"
  Case "bkshmmna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmnotes"
  Case "bkshmmnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsok"
  Case "bkshvmsok"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsna"
  Case "bkshvmsna"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsnotes"
  Case "bkshvmsnotes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisfront"
  Case "bkeedisfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisrear"
  Case "bkeedisrear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisleft"
  Case "bkeedisleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisright"
  Case "bkeedisright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontfront"
  Case "bkeecontfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontrear"
  Case "bkeecontrear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontleft"
  Case "bkeecontleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontright"
  Case "bkeecontright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpfront"
  Case "bkeeoccpfront"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccprear"
  Case "bkeeoccprear"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpleft"
  Case "bkeeoccpleft"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpright"
  Case "bkeeoccpright"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeepoor"
  Case "bkeepoor"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeba"
  Case "bkeeba"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeavg"
  Case "bkeeavg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeabavg"
  Case "bkeeabavg"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkeeexc"
  Case "bkeeexc"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdtlstms"
  Case "bkdtlstms"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneyes"
  Case "bknewmsdoneyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneno"
  Case "bknewmsdoneno"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmsclass"
  Case "bkmsclass"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkmsprobmaxloss"
  Case "bkmsproblmaxloss"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkentity2"
  Case "bkentity2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkloc2"
  Case "bkloc2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkdate2"
  Case "bkdate2"
    Selection.GoTo What:=wdGoToBookmark, Name:="bknarr"
  Case "bknarr"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkapiyes"
  Case "bkapiyes"
    Selection.GoTo What:=wdGoToBookmark, Name:="bkapino"
 Â
  End Select
Â
End Sub
Last Comment
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Did not fix my issue.
Microsoft Word
Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.
30K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
ASKER