ࡱ> qRoot Entry FL&Workbook\_VBA_PROJECT_CUR"=<0>Y"Y"VBA0>Y"@SY"  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~ \paaq2on Ba= ThisWorkbook=hL,8X@"1Courier1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)0.0 0000000 00.0 0.0%00% 000% 00.0%00                + ) , *  1 1 1  1   1   1     1    1<"@ 1 1<@ 1<  1 <@  1 <@  1 <  1 <  1<  1 < `1Sheet1  ;8 718-3 Homeless adults with mental health problems who= receive mental health services (aged 18 years and over)2000a27%27%31%26%39%41%37%b30% Education level918-4 Employment of persons with serious mental illness* (SMI) (aged 18 years and over)2002a52%b54%a,4DNAa,449%a,453%aDNAaDSUa50%a,448%a,454%a46%a60%a34%a55%918-5 Adolescents engaging in disordered eating (grades 9 through 12)2001c19%19%17%16%cDSUcDNCcDNAc23%21%c17%c26%23%c12%13%11%318-6 Primary care facilities that provide mental health treatmentc62%66%71%74%75%77%79%68%118-7 Treatment for children with mental health) problems (aged 4 to 17 years)c60%64%65%67%62%b67%100%c45%46%53%60%51%c63%70%54%78%88%55%c51%56%c61%69%63%45%52%61%c65%c55%59%58% Family income level Poor50%57% Near poorc54%! Middle/high income73%72%318-8 Juvenile residential facilities that screen1 admissions for mental health problemsc50%818-9a Treatment for adults with serious mental illness, (SMI) (aged 18 years and over)a62%b68% Race and ethnicity6 American Indian or Alaska Native only/ Asian or Pacific Islander only Asian onlyB Native Hawaiian or Other Pacific Islander only/ Black or African American onlya51% White onlya65% 2 or more races; American Indian or Alaska Native; White4 Black or African American; White# Hispanic or Latinoa45%' Not Hispanic or Latino6 White only, not Hispanic or Latinoa68% Gender Femalea70% Male Education level& Less than high school% High school graduatea64%& At least some college Sexual orientation518-9b Treatment for adults with depression (aged 18 years and over)a58%b64%1 American Indian or Alaska Native* Asian or Pacific Islander Asian= Native Hawaiian or Other Pacific Islander* Black or African Americana42% Whitea61%B Black or African American, not Hispanic/Latinoa43%1 White, not Hispanic or Latinoa63%a56%a57%a59%818-9c Treatment for adults with schizophrenia (aged 18198442%48%518-9d Treatment for adults with generalized anxiety/ disorder (aged 18 years and over)b79%5 mental disorders (aged 18 years and over)c49%c70%c43%4 adults with serious mental illness (SMI)2004c6.9%7.6%8 mental health services (number of States and D.C.)a3441454651 competencec2928327 elderly persons (number of States and D.C.)a182215177 DATA ISSUESa Baseline revisedb Target revised8c New baseline. Objective was previously developmental.<1 Total of 46 reporting States and the District of Columbia.z2 Total of 43 reporting States and the District of Columbia. Data are not directly comparable to those of previous years.z3 Total of 36 reporting States and the District of Columbia. Data are not directly comparable to those of previous years.k4 Respondents were asked to select one or more races and identify one race as best representing their race. Objective/number DATA SOURCEP18-1 National Vital Statistics System - Mortality (NVSS-M), ob, NCHS.M18-2 Youth Risk Behavior Surveillance System (YRBSS), ob, NCCDPHP.T18-3 Projects for Assistance in Transition from Homelessness (PATH) Annual- Application, SAMHSA, CMHS.L18-4 National Comorbidity Survey - Replication (NCS-R), NIH, NIMH.M18-5 Youth Risk Behavior Surveillance System (YRBSS), ob, NCCDPHP./18-6 Uniform Data System (UDS), HRSA.B18-7 National Health Interview Survey (NHIS), ob, NCHS.X18-8 Juvenile Residential Facility Census (JRFC), National Center for Juvenile Justice.K18-9a National Comorbidity Survey - Replication (NCS-R), NIH, NIMH.K18-9b National Comorbidity Survey - Replication (NCS-R), NIH, NIMH.>18-9c Epidemiologic Catchment Area (ECA) Program, NIH.K18-9d National Comorbidity Survey - Replication (NCS-R), NIH, NIMH.K18-10 National Comorbidity Survey - Replication (NCS-R), NIH, NIMH.C18-11 Mental Health Courts Survey (MHCS), SAMHSA/CMHS/DSSI.518-12 Uniform Reporting System (URS), SAMHSA.X18-13 State Mental Health agency Profiling System, National Association of State] Mental Health Program Directors, National Research Institute;SAMHSA, CMHS.X18-14 State Mental Health agency Profiling System, National Association of State=Focus area:18-Mental Health and Mental Disorders - 11-08-2007H Black or African American only, not Hispanic or LatinoJ Black or African American only, not Hispanic or Latino--- = Data are not available.BBSL = Baseline data available for this year. See Baseline column."DNA = Data have not been analyzed.5DNC = Data for specific population are not collected.bDSU = Data do not meet the criteria for statistical reliability, data quality, or confidentiality.NA = Not applicable. [NOTE:Data may include revisions, and may differ from those shown previously. Any displayed?age-adjusted data are adjusted to the 2000 standard population.    8 BaselineTarget8 Objective Year 199819992000 2001 2002 2003 2004 20052006 20072010 2.3%3.2%2.2%2.0%2.1%2.9%1.8%818-10 Treatment for co-occurring substance abuse and 818-11 Community-based jail diversion programs for 9.1%10.6%818-12 State tracking of consumer satisfaction with 818-13 State mental health plans addressing cultural 818-14 State mental health plans addressing care of 218-1 Suicide (age adjusted per 100,000 standard population)a10.5NABSL10.410.710.910.8---b4.8 Race and ethnicity/ American Indian or Alaska Nativea10.19.810.510.210.012.2( Asian or Pacific Islandera6.05.55.45.65.8 AsianaDNCDNA; Native Hawaiian or Other Pacific Islander( Black or African Americana5.65.35.2 Whitea11.311.311.712.011.8! Hispanic or Latinoa5.95.95.7% Not Hispanic or Latinoa11.011.611.4@ Black or African American, not Hispanic/Latinoa5.7/ White, not Hispanic or Latinoa12.012.512.9<12.7 Gender Femalea4.04.04.24.5 Malea17.817.718.218.418.09 Education level (persons aged 25 to 64 years)$ Less than high schoola,117.7118.4117.8117.9220.8321.7# High school graduatea,118.4118.8119.5120.4221.0321.5$ At least some collegea,19.419.319.619.9210.2310.6 Select populations Age groups= Persons aged 10-14 years (not age adjusted)a1.21.51.31.2= Persons aged 15-19 years (not age adjusted)a8.08.07.97.47.38.2= Persons aged 20-24 years (not age adjusted)a12.312.412.1418-2 Suicide attempts requiring medical attention! (grades 9 through 12)2.6%2.7%1.0%4 American Indian or Alaska Native onlyDSU- Asian or Pacific Islander onlyDNC Asian only@ Native Hawaiian or Other Pacific Islander only- Black or African American only White only 2 or more races9 American Indian or Alaska Native; White2 Black or African American; White3.0%3.4%5.0%2.5%2.4%3.7%4 White only, not Hispanic or Latino1.9%1.7%3.1%$ Parent's education level Sexual orientationG m   Y  d ) h &ct     }Bo4t!D ##L$$N*%@&&[#'u':#((bP) )WQ**f+&,,@Z-.0//Acc  <GKbQ})q!I<IV[O\  dMbP?_*+%z M \\FNCH-HVL-APP1.cdc.gov\PR-DHP.C odXXLetterDINU"4,^&tRB,IUPHdLetter o [none] [none]Arial4Pd?<Automatic>PR 44Custom Print SettingsingdMicrosoft Office ExcelDomain Users;gp-f-724_Cust_Data;CITGO Master Access Group;GP-Aehp_All;GP-Data2010;EDB_IRIS_APPLICATION_PROD;allnchshyat;F11-GP-EveryoneTwo-sided (Duplex) Printing . EXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE<IPACDRWDSGATCAPI;F4E8Q;Ki݅&E%9xPPBHAERP"ZXX??U} 2} } }  } } } } GC@ @@ @@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@ - ............. ) * * * * * * * *  *  *  *  *  * + , , , , , , , ,  ,  ,  ,  ,  ,                                                                                                                                                                    !  "     # $ #        %  &   ' ( ) * )        +  ,   - . .  -        /  0     ' 1 2  1            3  4                    5  6   ) 7 8 9  8            :                   ;  <   = = > >  ?            @  A   B C D E  E            F                   G  H   I J K L  M            N  O   P Q R S  T            U  V   W X Y Z  [            \                   ]                   ^  _   ` a b b  a            c  d   e f g h  i            j  k   7 ) l m  7                               n                   o  p     q                rDnl2 @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@               !s ! !t ! ! !  !t !  !t !   ! t !   !   ! r "u " "v " " "  "v "  "v "   " v "   "   " r #w # # # # #  # #  # #   #  #   #   # r $x $ $t $ $ $  $t $  $t $   $ t $   $   $ r %y % % % % %  % %  % %   %  %   %   % r &z & & & & &  & &  & &   &  &   &   & r '{ ' 't ' ' '  't '  't '   ' t '   '   ' r (| ( (t ( ( (  (t (  (t (   ( t (   (   ( r )} ) )t ) ) )  )t )  )t )   ) t )   )   ) r *+ * *~ * * *  * *  * *   *  *   *   * r +/ + +p + + +  + +  + +   +  +   +   + r , , , , , ,  , ,  , ,   ,  ,   ,   , r - - - - - -  - -  - -   -  -   -   - r .: . . . . . . . . .  .  .  .  .  /; / / / / /  / /  / /   /  /   /   / r 0@ 0 0 0 0 0  0 0  0 0   0  0   0   0 r 1 1 1 1 1 1 1 1 1 1  1  1  1  1  2G 2 2v 2 2 2  2v 2  2v 2   2 v 2   2   2 r 3N 3 3v 3 3 3  3v 3  3v 3   3 v 3   3   3 r 4U 4 4v 4 4 4  4v 4  4v 4   4 v 4   4   4 r 5 5 5v 5 5 5  5v 5  5v 5   5 v 5   5   5 r 6 6 6 6 6 6 6 6 6 6  6  6  6  6  7 7 7 7 7 7 7 7 7 7  7  7  7  7  8 8 8 8 8 8 8 8 8 8  8  8  8  8  9 9 9 9 9 9 9  9  9  9  9 9 9   9  : : : : : : : : : :  :  :  :  :  ; ; ; ; ; ; ;v ;v ;v ; v ; v ; v ;   ;  < < < < < < <v <v <v < v < v < v <   <  = = = = = = =v =v =v = v = v = v =   =  >  > > > > > >v >v >v > v > v > v >   >  ?! ? ? ? ? ? ?v ?v ?v ? v ? v ? v ?   ?  Dl@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@ @% @ @ @ @ @ @v @v @v @ v @ v @ v @   @  A+ A A A A A Av Av Av A v A v A v A   A  B/ B B B B B Bv Bv Bv B v B v B v B   B  C3 C C C C C Cv Cv Cv C v C v C v C   C  D5 D D D D D Dv Dv Dv D v D v D v D   D  E E E E E E E E E E  E  E  E  E  FG F F F F F Fv Fv Fv F v F v F v F   F  GN G G G G G Gv Gv Gv G v G v G v G   G  HU H H H H H Hv Hv Hv H v H v H v H   H  I I I I I I I I I I  I  I  I  I  J J J J J J J J J J  J  J  J  J  K K K K K K K K K  K   K   K   K   K  L L L L L L L L L L  L  L  L  L  Ms M M M M M M M M  M   M   M   M   M  Nu N N N N N N N N  N   N   N   N   N  Ow O O O O O O O O  O   O   O   O   O  Px P P P P P P P P  P   P   P   P   P  Qy Q Q Q Q Q Q Q Q  Q   Q   Q   Q   Q  Rz R R R R R R R R  R   R   R   R   R  S{ S S S S S S S S  S   S   S   S   S  T| T T T T T T T T  T   T   T   T   T  U} U U U U U U U U  U   U   U   U   U  V+ V V V V V V V V  V   V   V   V   V  W/ W W W W W W W W  W   W   W   W   W  X X X X X X X X X  X   X   X   X   X  Y Y Y Y Y Y Y Y Y  Y   Y   Y   Y   Y  Z: Z Z Z Z Z Z Z Z Z  Z  Z  Z  Z  [; [ [ [ [ [ [ [ [  [   [   [   [   [  \@ \ \ \ \ \ \ \ \  \   \   \   \   \  ] ] ] ] ] ] ] ] ] ]  ]  ]  ]  ]  ^G ^ ^ ^ ^ ^ ^ ^ ^  ^   ^   ^   ^   ^  _N _ _ _ _ _ _ _ _  _   _   _   _   _ Dl`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@ `U ` ` ` ` ` ` ` `  `   `   `   `   `  a a a a a a a a a  a   a   a   a   a  b b b b b b b b b b  b  b  b  b  c c c c c c c c c c  c  c  c  c  d d d! d d d d d  d " d   d # d   d   d $ e e e e e e e e e e  e  e  e  e  fs f f% f f f f f  ft f   f t f   f   f $ gu g g& g g g g g  gv g   g v g   g   g $ hw h h' h h h h h  h h   h  h   h   h $ ix i i% i i i i i  it i   i t i   i   i $ jy j j' j j j j j  j j   j  j   j   j $ kz k k' k k k k k  k k   k  k   k   k $ l{ l l% l l l l l  lt l   l t l   l   l $ m| m m% m m m m m  mt m   m t m   m   m $ n} n n% n n n n n  nt n   n t n   n   n $ o+ o o( o o o o o  o ) o   o # o   o   o $ p/ p p' p p p p p  p p   p # p   p   p $ q q q* q q q q q  q # q   q $ q   q   q $ r r r! r r r r r  r " r   r # r   r   r $ s: s s s s s s s s s  s  s  s  s  t; t t+ t t t t t  t  t   t , t   t   t $ u@ u u- u u u u u  u . u   u / u   u   u $ v v v v v v v v v v  v  v  v  v  w0 w w w w w w w w w  w  w  w  w  x1 x x2 x x x x 3 x 4 x 5 x 6 x 7 x 8 x   x 9 y y y y y y y y y y  y  y  y  y  z: z z z z z z z z z  z  z  z  z  {; { {< { { { { { = { > { ? { = { @ {   { A | | | | | | | | | |  |  |  |  |  }s } }% } } } } }t }t } t } t } t }   } A ~u ~ ~& ~ ~ ~ ~ ~v ~v ~ v ~ v ~ v ~   ~ A w  %     !B t  6  t  t     ADl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ x  %     !B t t t t   A y  C      D  E ? F G   A z  H      4  I 3 > =   A {  %     t  J K t t   A |  %     t t L t t   A }  %     t  M 7 t t   A +  N      @  M O J   A /  P      =  Q Q 3 R   A   C      S  T 9 U G   A   V      4  5 9 ? 3   A :              ;  W      X  F ? R Y   A @  2      3  ? ? > =   A Z              [  W      U  \ 3 9 ]   A ^  _      R  U ] = F   A `  V      3  a b R >   A               c              d  e       E           M               f              g  h                i j              k                  i l                  i m                  i n                  i o  p                i q  r                i s                  i t                  iDl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ u                  i v  w                i x                  i   p                i y  z                i {              |  }                i ~                  i                                 i                   i   r                i                   i                                                j                                                                                                                                s                   t                   u                   v                   x                                                         {              |  h                Dl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ~                                                                                                                                            F                     6 j                t                     6   t                     6   t                     6   t                     6   v                     6   v                     6 v                       6 x  v                     6                        6    R                     6 s  v                     6 t  v                     6 u  v                     6 {              |   R                     6 ~   G                     6                                      6    4                     6    3                     6   v                     6              Dl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                                  j                                                                                            w                   h                 s                   t                   u                   v                   x                                                         {              |                   ~                                                      p                   r                                                  "                N                ]                 %                ]   '                ]   %                ]    %                ]Dl@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@ @ @ !  %                     ] %                       ] {  '                     ] |  %                     ] }  %                     ] +  %                     ] /  '                     ] 3  %                     ] 5  e                     ] :                   ;                       ] @                       ]                    G  %                     ] N  %                     ] U  %                     ]   '                     ]                    "                                 #                         "                                              $  $  $        $                    "                               $        $                    "                          $    $  $        $ % %%%%%%%%%%%%% Dl2 @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@ 0@1@ 2@3@4@5@6@7@8@9@:@;@<@=@>@?@  ! " # $ %& && '& (& )& *& +& , - . / 0' 0''''''''''''' 1( 1((((((((((((( 2 3 4 5 6 7 8 9 : ; < = > ?Dl22@@A@B@C@D@E@F@ @ A B C D E Fx>J@dbbb  7 Sheet1 Module1 __SRP_2 __SRP_3oThisWorkbook 7  !"#$%&'()*+,-/0123456789:;<=>?ABCEGHIJKLMNOPRSTUVWXYZ[\]^_`abcdefgijkmopqrstuvwxz{|}~_mmxME(6 L `@pXk)Macro recorded 2/18/99 by Thomas C. Socey# 14%hP@l @\ @X HxlB$*\Rffff*0Z48ae88e5*\R1*#2ac*\R1*#e8*\R1*#1c8" ((8A1:INDIRECT(IV1)$B@HoPH˰Attribute VB_Name = "Module1" Sub Macro`1() L.Descrip0tiontX recorded 2/18/99 by Thomas C. Soc eyProcDataZInvoke_FuncAZ \n146 Range("A1:INDIRECT(IV1)").Select End rU~|  y Q ) d0(X'\%:l%$ XX}$0$ XkrU $`an'mC #xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0lBxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2<jxmN #<x,D@zc FSheet18.~__SRP_165@__SRP_17DBModule2FLI.^\ xLI.^\ x,D@zcME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0lB$*\Rffff*0e48ae88f04xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU Pa...9.4./`rU @n$+myxMExplBx"Attribute VB_Name = "Module2" /mRxME(6 L Module3Q__SRP_4h__SRP_5loModule4n$`@pxk)Macro recorded 2/19/99 by Thomas C. Socey 14"%hP& @x xxlB$*\Rffff*0[48ae88e5*\R1*#2ac*\R1*#e8*\R1*#1c8" ( &B@Ho`XAttribute VB_Name = "Module3" Sub Macro`3() L.Descrip0tiontX recorded 2/19/99 by Thomas C. Soc eyProcDataZInvoke_FuncAZ \n146 Cells.Select End rU~| y Q ) X$x$ Xxx$$ xkrU $`n$+m<,xMExplBx"Attribute VB_Name = "Module4" $+m=xMExpModule5yModule6Module7Module8lBx"Attribute VB_Name = "Module5" $+mɭxMExplBx"Attribute VB_Name = "Module6" $+m!xMExplBx"Attribute VB_Name = "Module7" $+m xMExplBx"Attribute VB_Name = "Module8" $+muIxModule99Module10(a__SRP_6 %__SRP_7oMExplBx"Attribute VB_Name = "Module9" JmBxME (6 L< 6`@pXk )Macro recorded 12/18/2001 by Thomas Socey 144%hP8@x @h @X HxlB$*\Rffff*0]48ae88e5*\R1*#2ac*\R1*#e8 "   0( X `%hx Macro7 Macro* Macro recorded 12/18/2001 by Thomas Socey@ 8(:oհAttribute VB_Name = "Module10" Sub Macro7() L.Descri`ptionvX recorded 12/18/2001 by Thomas SoceyPro cDataZInvoke_FuncZ \n146' '!w),  Selec].NumberForma t6@4End  rU~|  y Q ) `,%:h%x $ xx$,$ xkrU $`9nModule11 __SRP_8__SRP_9oModule12#mmwxMEP6 L<<x >`@pk )Macro recorded 12/18/2001 by Thomas Socey 14<%hPHL&@x @h @X @H @8 @( @ @( @@ @X @ %xlB$*\Rffff*0^48ae88e5*\R1*#5e*\R1*#90*\R1*#2ac*\R1*#e8*\R1*#1c8 "   0( X `<Wh Macro8 Macro* Macro recorded 12/18/2001 by Thomas Socey'B'D HF LJN &B@@ssoPH"Attribute VB_Name = "Module11" Sub Macro8() L.Descri`ptionvX recorded 12/18/2001 by Thomas SoceyPro cDataZInvoke_FuncZ \n146' '!w),  Cells.Replace What:="'",  menLookAxlPart, SearchOsr _ &:=xlByRows,NtchCase:=False End rU~| yy Q ) \W:h%:H%(%%f%x$ Xxx\$ xkrU $`9n      !"#%&'()*+,-.0123456789;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~$+m8xMExplBx$Attribute VB_Name = "Module12" $+mxMEModule13Module14Module15Module16!$xplBx$Attribute VB_Name = "Module13" $+mߕxMExplBx$Attribute VB_Name = "Module14" $+mFxMExplBx$Attribute VB_Name = "Module15" $+mxMExplBx$Attribute VB_Name = "Module16" $+mY4Module17/Module18 ":Module19E^Module20+gKxMExplBx$Attribute VB_Name = "Module17" $+mxMExplBx$Attribute VB_Name = "Module18" /mKxMEp `@Ib `lB"  , H P`x   0@HPX`hpx   *  d$B@H &here start of superscripting footnotesP 'f fa j%l'h h$B@H j%l!p'n n'r5 n$'t tfn n r $'n 8!vArial9Regular9x!@9z9|9~999 9 9k j!'  G'fjP $here end of superscripting footnoteso%Attribute VB_Name = "Module19" Sub Boldfncol(currcell) @ Range@s .Select 'here start of superscripting footnotes 4stop(it30 Do Until (="1 q p1>ActiveC.Offset0(0, 0dp1F)c*Val)-3ue WvlenLen(Uletter21MidO, "2If "fn" Then7S'3, B-* With oion.Fon qB .EAriA@ctiveC.Offset(0, 0dp1)cр*Val)- ue WvlenaLen(Ul@etter2MidO, 2If "fn" Then7S'h3, B-* @ With oion.Fon qB .ņArialStylBRegular Siz 8.5!Q2 .S@kethrough@I0FalsOY.S@ Trc bàOutlineD\ Shadow Under xlFJNon5@ColorIx AutomaticNLEnd Ifthiscos̮umLmaxL xEr1 Loop+C~e~ rU~|  krU $ `n;mxModule21@__SRP_aT__SRP_bgModule22$*y  'A $$ $B@H j!p' $' $'  Objective j!''' a  '  j%l!p' $' $' YearG'j   j%l!p'd  j%l!'  j%l!'kkx0 end for First, find the row which as the titles'''t''  ''''''''' a' aA $$ $B@H j!p' $' $-----' j!'''k  $' $' -  ( found a new objective $'# looking for a measure '  Thomas C. Soceylug1Microsoft Excel@uX"@j)|Z@zY"՜.+,D՜.+,D PXl t|  NCHS/OAEHP Sheet1Sheet1!Print_Titles  Worksheets Named Ranges4 $, 2mxME(6 << <x `++p%H@lB$*\Rffff*0_48ae88e5+" 8 .P $  0 HX` h x     0  (H hpx 6  (0 8H P$`        882p  0 H Xx   .  @ P` h p *x 2  8 HXh x     0@HPX`hpxZ    ( 0 8 @ H  P ` p                ( 8 H  P ` p x        $     8  H X  p  :        0 H  `  p 0    (@HPXpx *  (08@ H P4`        (8@ H>P 0(08H`hpx *  (08@HPX` h p4*H Xhx  6  8 @<P  >  B0x         ( 8 H Xh   (08@PZh  0HX`h x     08@HPX`x $   0 @ :P           0(@h(08@ H*X  4Ph*  (08@HPX`h    0 @ X x         !!!! !*0!`! p!!!!!!!!!!! ! !4!("@"`"x"*"" """""#### #(# 0# 8#6X## # #<#$ $ $>0$p$ $ $B$$ % % % %  % (% 0%8% .@%p% x% %%% %%% % & & &8&H& h& x&&&&&&&&&&&&&'Z '''''''''' '''((( ( 0(@(H( X(h(p(x( (( ((( ((((())))0) @)$P)x) ))) )) ) ) $* 0* @* P* <p*"** ***+ + +  + 0+ @+ P+0`+++++++, ,(,0,8,P,X,`,h, p,*,, ,,,,,,---- - (- 0-4@-x----*-. .(.8.@.H.P.X.`.h.p.x. . .6.. . /</P/ h/ p/>// / /B/80 P0 X0 `0 h0 p0 x00000  00000 0$1 (181H1X1 x1 1 $1 1 1 1 2(202 H2P22X2 $2 2 2 2 2 2 3 ( 3 $H3 @p3 83 3 3 4 B4 (X4 24 4 4 44444445 55(5@5 X5 `5 h5p5x5 5 5 5555 5 5 6 6  6 (6 06 86 @6 H6 P6X6`6h6 6 6666666D6$@7 h7 x777 77"77788 8(80888@8H8P8"X8888888888888899  9(9 09 @9 X9 p999999 9 :(: 0:8:@:X:p:x::::: 2: <: 0; @;P; `; h;;; ; ; ;; ;;;<<<0< @<P<X<h<p< x< <<<< < < *< == =  =(= 0= $8= 0`== =====>> >0>8>P>`>h>>> > >>>>>>>h>LP? ?@?&@(@ @@ 0H@&x@@ @ @@@@@@@A $(APAXA`AhApAxAAAA A A8ABB0BHBPBXB`BhBBBBBBB BBBCCCC C(C0C8C@C  HCDXCCCC CCCCCCCDD0DHD`DxDDDDDDDDDDDDD  D6E8E6PEE 2E 6EF(F6HFFFFFFGG0GHGXGxGGGGGGGGG GG HH H0HPHXH pHH<HH HI I I(I0I8I@IHIPIXI`IhI >pII II I (,DATA2010 In-house processing --- Please wait (( First find the row which has the titles''''''' a$G'j ' $' $' $' $'    $'d'kp 0 0 0G 'j 0  0 no measure'  'd 0     ' ''kk       j(pkP j!'' a find where objective title ends' a j%l!'b b$B@H j!p' $' $' '  j(p  $'t t*   $'  j(p 8!vArial9Regular9x!@9z9|9~999 9 9qd letter2 $' < D N - #''''''''' a  '  $' -'dX $$'d0 ..''d %%'d  0 'd  0 'kkkxkpkhk`  G'j stop5       8(:k  hdashk notk letter 2k celllen j!'  G'j stop4  'A $$ $B@H- goto next line j!p' $' ' $' '   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household)   j(p; add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kxkp       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p> add 7 to 15  j!p j(pkHk@ j%l!' '  $!v(  $-----' j!'''kd 6 Not a new objective. These are objective title lines   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kXkP       j%!vArial9Bold9x#@9z9|9~999 9 9q k d   j(p> add 7 to 15  j!p j(p j!p$' STATE: j!p'   j%!vArial9Bold9x#@9z9|9~999 9 9qH k@ d8     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pdP    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pkh k` kX kP kH k@ ' a j%l!'b b$B@H j!p' $' $' '  j(p  $'t t*   $'  j(p 8!vArial9Regular9x!@9z9|9~999 9 9qd letter2 $' < D N - #''''''''' a  '  $' -'d $$'dp ..''d@ %%'d  0 'd  0 'kkkkkk  G'j stop5       8(:k  hdashk notk letter 2k celllen j!'  G'j stop4  'A $$ $B@H1 goto next line j!p' $' ' $' '   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household)   j(p? 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(pA add 7 to 15  j!p j(p j!p$' STATE: j!p'   j%!vArial9Bold9x#@9z9|9~999 9 9qkkk j%l!' '  $!v(  $-----' j!'''kd   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9q0k(d    j(p> add 7 to 15  j!p j(p j!p$' STATE: j!p'   j%!vArial9Bold9x#@9z9|9~999 9 9qkd     j(p@ add 9 to 18  j!p j(pdP    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pdp    j(pI add 15 to 27  j!p j(pkkkkkkkk% until stop3 - end of objective titled' a j%l!'b b$B@H j!p' $' $' '  j(p  $'t t*   $'  j(p 8!vArial9Regular9x!@9z9|9~999 9 9qd letter2 $' < D N - #''''''''' a  '  $' -'d $$'d ..''d %%'d`  0 'd8  0 'kkkkkk  G'j stop5       8(:k  hdashk notk letter 2k celllen j!'  G'j stop4  'A $$ $B@H j!p' $' j%l!p' $-----   $-----' j!'k''k ' $' '   '   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p= add 7 to 15  j!p j(p j!p$' STATE: j!p'   j%!vArial9Bold9x#@9z9|9~999 9 9qkdx     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd     j(pI add 15 to 27  j!p j(pkkkkkkkxkp until stop2 until stop1=1 '' '' aA $$ $B@H j!p' $' $' j%l!p' $-----  8B@A $$ $B@H j!p' $' $' j%l!p'k  'd  DATA ISSUES  DATA SOURCEA $$ $B@H  '  DATA SOURCE' 8!B@ Objective j(p  '  $ $$ 'A $$ $B@Hnumber j!p j(pA  $$ :  $B@Hd  DATA ISSUES', j!p j(p  $ $$ 'A $$ :  $B@Hk@ k8  8 "9  &9$9(9*9,9.90q 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q  D 8%2 >96 B9@ 9qP 8 F 8%2(6 8 H 8%2(6 8!vArial9 Bold Italic9x 9z9|9~999 9 9q d   '  'J'L Ja L 'L  L$'N N\  L $  L  L $ 'A $$ $B@H  j(p  j(P L 'R L'T 'V V R 'X R j%!vArial9Regular9x#@9z9|9~999 9 9q T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jk L G'Jjkd  $' $'Z ' $' $' $' $' $'    $'d'k'\normal'^ normal'`'b'd'f'h 0 0'^$ dash and second digit of first pair'\. space and dash and second digit of first pair 0 ' \ '\d 0 ^ '^'bk`kX 0 ^ '^  # no measure'  ' \ '\d     ' '' \ '\kkd 0 \ '\ ^ '^'`k8k0       j(p j!p'd'b'`k' Z G ^ '^j - is not a continuation line j!p \$'d ^ 'fd( ^ ` 'fd ^ ` 'fd ^ ` 'fd ^ ` 'fdh ^ 'fk@k8k0k(k k Zf Zi Zj Zl Zr ZtG f 'fj Zm ZA ZBG f f $'fj bG f 'fj b ` Z G f 'fj j!p \  \ $'h d f h j(pd? -" is a continuation line 'd, 19 d j!p j(pk@?k8?k0?k(?k ?k?  ' until stop1=1k continuesw = 1A $$ $B@H 8 &9  &9$9(9*9,9.90qh>  'j G j 'jjA j $$ :  $B@H 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q= D 8%2 >96 B9@ 9q`= 8 F 8%2(6 8 H 8%2(6 8!vArial9Italic9x 9z9|9~999 9 9q< l!n$ j $$ : $ $$ 9p9rqP< l!n(t l!n9v9x9z9|9~9? %9? %9 %9 %9? %9? %999 999 9*9 9 99d9q; ' j$$: j$$ $B@H  8B@ $$: $$ $B@H  8B@, This section will bold the objective titles0 See if a focus area or Leading Health IndicatorA2$B@H j!p$' Focus Leadi Steps j!$!v(  j!$!v(z1:1$B@H  8B@2:2$B@H  8B@1.1$B@H0@ 8(  '  $1 'A1:  $B@H 8 "9  &9$9(9*9,9.q(8 8B@A1$B@H j!p' $' $'  - Z j(pd7A1:L1$B@H 8B@A1$B@H*--- D A T A 2 0 1 0 --- In-house System - Z j(pA1:A3$B@H 8!vArial9Bold9x 9z9|9~999 9 9q6k68 end for See if a focus area or Leading Health IndicatorR1C1 B@Processing complete (o66Attribute VB_Name = "Module21" Sub Numeric() Application.DisplayAlertsAlFalse DStatusBarDATA2010 In-house processing --@- Pleawaity' First find the row which hastitles cvalu7on(= 0 oncolz max stop1havey&eObjDo Until p1 /+  Range("A" + Trim(Str())).Sele ct VActiveCell.V_ "=R If "Obj7." Then,]o=Row:@ A2J@E@ \G) Offset(0,)C ߏ>GIY~CH@Ɓ3J " Aۗ.1/M"_!NEF FYL`Columzendaddr#]AFA"EIffLoop #' for #v,Qv,v dh"$ lette/wa#"spac|o#Z+ 3ntxCX@this~be`!af@diffco ~ nuesw ped~dYd!0ehJ^WMid(# , 1, 5)"--Tj ka!IIA![K `e0+ E 3`bCE)~7+ cNxK ) ' Xu^a pnew KC_ U 6 `looFkء`a murAaW @[ "E]eALend9!A+ =1LjI2, 2L3!)4;4,5+ >= 7 @ > @l -0)wnPu!A#Q"0" Or Zp!d #g! CK#no _4c" Not ( )1 qqerw ZR@/ C2Lp$!1`q2t>3t'  startlobX>mE@_r @Z1@!wherew@ ¦nqA!Ha(81currc ЄydK$bOd _o`?gi lenoK!3 )/%> b$erNP4"*p׵KT -   Withv 1F.ArialE2 .StylRegularC.Sizq8,.5O".`ikethrougD\.Supe@rscripTruqbv/.OutlineQ `%Sha2d = _XUnder!xl"Non .(orIxAutompcJߑ]B2My',sR0-aA"<")2D̴ = "N") And Not T(c-#DT@hen h@dollar~"Lperiod!Lcent'bzeProes&a#&psw$0rash1cntH#stop5#Do Until 1K ;(+ 1)AletteMid(cvalu(e, ,If F"-" \C hdCN\1Else.J$fF$*l .e .\ !CJIj%h*eo%%57jD 'z%+ "0d*'% EIfW   @n= celllenb( Loop 'C# 04 Selection.NumberFor,mať+H+ h$o+ G9aa\X#`noto2M+Othiscol"A veC 0.Cpolum(max/4`,34onropsdRange("A" + Trim(Str(ar))).c goto nextp lin9sf Vwg&Rlb efore Le>ntk.af3odiffp2(- hoVl s1r0,2{@<6(0t p"@Race apCethnicity9Or"y!Mother's r ) Gender.Worksite onl "Class atd1 "STpATE:,5:) -O (head of house!)`t7A! h1?$aD*d!' @add 5 )18 =spa+'+] p"3, y Y3@ _15_startaon[/ *@% ? 19@A 18AA92?q2vtY 3p > j With)#Cha;MGs S:=C, gth:=(10 2 -TFone.NamO"Arial!StylrBPK#oaSiz9."5_ .]ik!`Iroug1Fa`u vscrip1xRrb_f.OutQcA `1.Shadwrj/%UPxlNoi`QuorIxRAutoicO#$M852 }:0 "GN7N_>L = addspace + ActiveCell.Value  End IfLstoploc(Offset(-1, 0).AddressV) 9371 Range(sta$rtW, `).Font.Bold3Tr If @Mid(cv, x5)("-" Then guc(inuesw C 03RWithICharacters(Sa:=, 1@gth:=(`24 -7)Ã" .NameA\Ar0ial"RAStbyi= "ASDiz! 9.5Strikethrough Fa`z 3upcriptbsOut hadb`Under xlb#Nonlġ>,ColorI xAutomaticQDA=oG]I8TI7: ?"7927mOO B1gB  11! t`Q_CRP/ / @_ 3R 41_s_ X 2$Q_ R b27 oЅ?3P& 1q 4 Do U ntil op1 currc%H40&  ).Sel`=.Trim_ fR!5 @o @je$ )%letaǣ "*OGU7Y2,  -PW V 2Selection.Font .Name = "Arial"!StylTRe gularXSi"zN8.5NStrikethrough}False,uperscript*Tru )b'ROutlinej>hadowUnder3)xlNonXColorIxAutomaticEnd WithE ' lette,r2cMid(cvalue(, 1) If@ Not ( "`<") A@GDUNNN-N#@Then)hdo6l*"@ hiod cenbzeroeJsa ps0Z9ascnt$stop5-Do Untitl 1@+(+ 16D0 dN`)KaKC@L#V0"-" + #%g+ 5./  Vno0R.~othiscol A@veCr.umx>maxY40E4onrғsdRange("A" + Tr(im(()) ).`goto next 1+[ӌ{ VouaRrSmbefor1LenTOyaf0?d(iff(- chol0od2|6l`1 "Race anicitry`Or!Mother's r) Ge.Worksit`e onlT " Classatdq "STATE:l5) -O (head of house!)`_qt7D 4?"'a-$#' 1O addsp+.[-@3, Un3 _5_QsptartanA1 *% /r@ 19@fA 18OA92/q2yt\ P> m'#l.Characters(Sta rt:=s03, Length:=(len2 - 3)).Fo nt .Name = "A`rial"DvStylNBoldLSiz!9.5EStriket@hroughqFalse)up cript'bsOutlineb&hadow`Under&xFlNonfColorIxAutomatic}End With If QIf diff8 Then ActiveCell.ValuBẇ" + cv' add 7 to 1x  spaceM$ h@2,Mid(M ,, 6)O :"STATE:"<=NN b5212:0?t?n=.SnAn .n.SnnB .n?nm tpst`oplocZ)NOffset(-G0).Address0P3`1^Range( l,  #.T|ru@fal{ k, 5)"-gc`inuesP*pedrxRowOa~ 1 3En ~7 F52 ( ϑQ!/Sue/S0?႟Sc+ % oYu9 19 @D 18?A9]2&q2 ?_(sp > 0)C_gϞϞϞhϞ>g}.Ϟ).ggOg g_TgG.gϞg?Ϟ&A"Ϟ# ?.$OOI "  N&A@JJG @D:d  - /6/6Ԑ/6T/6ԣ/6/6/6?/6_U/6V/6/6/6/6/66 6 Al69 Or (beforq1)[77`N9BmAsp;ace + ActiveCell.Value " Els DIf diff = 10 Then `v T""~cvt ' add 11 to L21!R/sp>1 letter2Mid)a)o# "*"GSlJ# 2, -?`5  eWith #9ion.Font .Name"Ar0ial"!StylBRegulDarSiz8.5 StrikethroughFan.Superscript@Tr)bZ Outlinehadow`UnderA xlB&Non'@ColorIxAutomatic'!;ቀP`c` Y`Z Not ("<") A0MDN-#achdol% "&h0!iodo'acen#bzeroesw8ao ps#\hdasǁ/?gcnt /'Aa5@ ?7&d/d(r+H R0%R}"-_S_ vF[ "$)$)*./.-(z {m % 7% :/ d5u=+ "0oofCo. ??????????RE=`RQLo*'d2LmvU"'NumberForwAu>+ #7+ 5./ y 9Vno~ 2mothis8col um_Ymaxc}ol Then stop4 = 1 Loop 't donr,ow+ pRange("A" + Trim(Str(V))).@Select c valueQActiveCelll.V&RV5)#2 KOffset(1, 0)XIf (Mid(I(, 5)!"-") Or  " And 4"D,continueś,pedňRowDEXIf 0;1;QbeforpLenJe@nafterC@diff(yD- B \ 7<͘@"DTv@add 5 `to 12! sppace@ hold^AM p3, 66'A 3 ,T 5S start 0!len7?2 0 /E"STATE:"30919/18Else!ۿ2^2%iG > 0!With h,Chahracas@7:=, 1gth:=( $2 - %F" .Nams"Arial"RaStylBRSiz1!9.5ikethroughTFa4@Superscriptb.Outline hadUnder  xlb#NonNColorI xAutomatic$DA=oG]I8SIt@w`[7MO ?Mz #@JueMJb _D`/20=11( Jo6m62-6206#6.6 q16.66.6+p6I6W.S6y.66< .66E65 5592v1)6?2 6`.79"7m/7߱Ӂ 1gB  11! sIl"H_C_CR( 1A/ / @_ 3R 48_s_ X 2_ Q_ R B27 օ?3P& 1:u`NlB>1=  GsourcSÝissT}C="2CDo U:ET=>3O ѻ%{Halue If Mid(cv, 1, 5@) = "-"` ThenSelection.Dte Shift:=xlUpLRange("A" + Trim(Str(onrow)))./.|uA[veCell.V yW#O )CR 2 eOffset( z0) 9End If0@"" >A' st(op141Els"DATA ISSUES`" Or 3 SOURCE")  , l6Len(endaddress) - (@X;T@ sourcesw EntireRow.Inser>tC {"ObjAve" @+.@6dGµl)P mU1numberA~"@ $o)5":@ !JZPYiss~u=!#? ??;(FB_(k/Wit h ` .HorizontalAlignmentxlLefK-dVficmC ero WrapTex Fab.Ori`a0OAddInd`tShri@nkToFi Mergbs 'a%G'Borders(xlDiagonalDown).LineStyle` xlNo*nƪ G..Up{k6EdgeT\opI(C9i nuous).Weigha$xlM ediumCo(lor-xAutom@3c$ZBot@ & 3D# . d ' /xl`ide-OGg4wF .Nam$"Ari4al|g.'"BLol`;ic}S4izA9ikethrough@5 .Sup.pcrip4bsA.Outl1 ?Shadoz .U>rbN:6  } gg(eE0 cPlen ac|.d> _ 0љ6pO lette rcY DoD U@l (U1MT("33 !n, 0Ϗ"\NBF\#`R^ y!P ,-G  u/3 > OTFormulaR1C!ttos"ΟH/$sd&6T,!o,4hDe- U BOHCharac-sar gth:=N?  RkSReZgr,S*.S.5.TOyUTriVfOW7F.X_}XeYX?z Դ End Wipth 0p ActiveCell.Characters(Start:=sdselect, Length:=De").Font .Name = "Aria l")IStyl.Regular0Siz+9.5VStriket@hroughDFalseup} cript#bs&Outlineu-hadow`Under-xFlFSNon= 7%A7, l - 5h/"|m6`?p`!%7 '@normalG0n0umpc05 ' seconda(0!  iaam.iA#@5! "0" Or"X!W2dash a digit of first pairH"3space D4 Nz(f+S >NHot @ttD&)oJ $g+ :KmI,, 5? Dd bi" "@4no !urѰ`, w+@ 0nXI137P 0@  !  qek%#uo 3 + 4  o(f V0"O YXa *ars;*E*) Vqi`[1q2t3t4t+rIiR6 p addCK!(tu 43B_@B{"-7is@at a `tinupon ]4|rle N(`3Ld<Ǟ4 A />0^6 ? jrt a5 M  ߽}  1 o n 6h ? `@@4____q U8f2ijlrt49s!mոm:AB;R0()p|0S41 v,bpSG (l812,be Te0h?H?H,II ActiveCell.Value = parPt1 +823 Else @If Not (dh~"-") Then ' is a continuation lin vVqX= "b "E1>9 m  :Enpd If o0nrow+ B16Loopdul stop16= - es Rang e("A"Trim(Str(obj.))).Select Wpith 5. HorizalAlignmen"tGxlCerVerticWrapTexFa{.Oriq= 0BAdd8IndG ShrinkToFiKMergBs AA1 del71: - 1) haveyear1 C O @e))U":AWendaddressUFU.Borders(xlDiagonalDown).LStylxlNoYUp sEdgeTop@B&bCousAe . Weigh`xl@MediumCPolorAnx*x@lAutom ;cCg2A Bot@???-I`nside%\4n?,ch_5pn.F/C.NamaB"Arial"%F"ItalibcSiz.~ikethrougl%Supa@ScripJmbsuOutA`@ had U}~rGG`._9C9$aSheet.PageSPetup(PtTitleRow"$*S|Ũ umnB D3a̅,.Area"" .LeftHea('頪ersR!{S FooteAE sp Margin App0+2`.InchesToPoints(0.75y@"onNooaq 1.cHooj#oo0. nj"aingA&5aGrid!6 1&Comq}xly"No5X-#Lly CS/@*xlLandscap.Draf/H .FirstO1v @vuOv@BlackAndWhitQR!} Zoom10ْ g;25D(Cx gDShift:=xlUJI2r(Cln.!'`sg will bold the ÀMqve t!RB'e ifpfocu1Jor L0G ( (l to𡥓2"W cvMid(-, 1, 1`"F" Or 7B<Steps""+H0әj.B= Tru'՜4u14Q"1:1 &R"2:y 1.?AbH՚16.ql*Len( _Ga-ql"1hS"A1<2G!2kq_TfheDǺBDFHl@` P  @ `x 8 @ ` @ ` @x @`8 @V x H t0 ` %h  /8p` ` %PH ;@Z ` @\P @^@ @` 0 @b @dH  @f @hh @h `8@j@ @ x@`@ @@`0@h X@`@@ h@`@| @x`@p ZHL&@` @\ @X `h@T @D *@@`*@0 @( @@ @ H@lB$*\Rffff*0a48ae88e5*\R1*#2ac*\R1*#e8*\R1*#d7*\R0*#10*\R0*#f*\R1*#1c8*\R1*#1f0*\R1*#1c3*\R1*#2e*\R1*#10*\R1*#41*\R1*#a3*\R1*#31*\R1*#2c*\R1*# !!!!0 H /Xx  %  .%   ) @ P ` h p *Ox ( 2   P&8 !HXh x "    ! <j "P` px& ""Z     ( 0 8 "[@ h x                ! Zl0             !   ( 0  @ P X  h  x                  ( @  P $J`       *     :N  !X h  x    ! !    0+F8BPBp  (     *_(X hx  4+F  8 @ PH  h ?p ,  *   > 0+(FXBpB  (    (0 8*_Hx   4+F@ X %`6+F  <+F( @ H>+XF  B+F ( 0 8 @ H P  X `Pp& !  "    (!8P `<jh " & ""Z(8HX`hpx"[ ( 08@X `!pZl         ( 0@!Ph x     ( 0@PX`hpx $J  *(8 P ` :Np !      ! !( @ P(+`FBB  (  (0 H PX` h*_x       ( 4+8 Fp   P  ?  ,   *! ! ! ! (! 0!0+@!Fp!B!B! ! !(!! " """ 0" 8"@"H" P"*_`"" """"""""""# # #4+ #FX# p# %x#6+#F# # #<+$F@$ X$ `$>+p$F$ $ $B+$F(% @% H% P% X% `% h% p%x% .%%  % %P%&% !&& & 0& "@& P& X& h& p&x&&!&& &<j& "'' ('0'&@' "P'"Z`''''''''''''"[' (0(@(P(X(`(h(p(x((( (((( (!(Zl( H) P) X) `) h) p) x) ) ) ))!)) ))) )** * 0*8*@* P*`* h*x** ********** +$J+@+ P+`+x+ *++ + + $N+ !+ , H, <R8,",x, , *,, , , , , , , - -0+(-FX-Bp-B- - -(-- - --. . .(.0. 8.*_H.x. ........... . .4+/F@/ X/ %`/6+/F/ / /<+/F(0 @0 H0>+X0F0 0 0B+0F1 (1 01 81 @1 H1 P1 X1`1h11  1 1 1 1 1 1$N1 !22 2H02 ,P2 .p2 $N2 !2 2 2 H23%3  3(32%03 $Nh3 3 3  3 +3 !3 3 (B3 $N 4 @OH4 8t4 4 4  4 BH4 (B05 2bX5 5 5 55555555 5<5<666 06 86 @6 H66P6 h6 p6 x6 6<6<6 *6 6 6 6 6 7 7 7 7  7 (7 0787%@7 X7 h7 x7 777!77Du7$N8 "@8 "P8`8 p8 x88"Z8888889999 9(9"[09X9h9x999999999 9999 9: : !: !0: H:!X:!p:!:!:!: : /:;  ;; ; 0; H; P; X; `; h;%p; 2 ; < ; < <(< 8< @<X< h< p< x< << < <<<<<= = (=0=@=H= P= X=p== = = = *O= (==  =  =>  > $*> 08><h> > >>%> >>%> >?%? (?8?%@? X?h? p? ???????h{?Li(@ "x@@L@&Y@4A A 0 A& PAFxA A AAAAAAAA $NB(B0B8B@BHBPBXB`BhB pB "B8mB<B<B6C C(C0C 8C6@CXC`ChC pC<xC<C *CCCCCCCCDDD D  % DDy0DxD D(D %DDDDDDD;D;D6E6 E;8E;PEhEpExEEEEEEEEE E  E6yE.F6y(F.`F 2xF 6F(FBG66 G`XGbpG1G.G1G.G1G,H H(0H2PHpHxHHHHHHH !H(H !HHH=I(I(0I !HI(XI<1pI(I *II IIJJJJ J(J0J 8J@J >HJ fhJ *J  &K(K 8K (,DATA2010 In-house processing --- Please wait (( First find the row which has the titles''''''' a$  'A $$ $B@H j!p' $' $'  Objective j!''' a  '  j%l!p' $' $' YearG'j   j%l!p'd  j%l!'  j%l!'kkx0 end for First, find the row which as the titles'''N''  ''''''''' a' aA $$ $B@H j!p' $' $-----' j!'''k  $' $' -  LQ( found a new objective $'# looking for a measure '  G'j ' $' $' $' $'    $'d'kp 0 0 0G 'j 0  0 no measure'  'd 0     ' ''kk       j(pkP j!'' a find where objective title ends' a j%l!'b b$B@H j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ 'j%  j(p  L 'R L'T  L 'X b$B@H  j(P' R j%!vArial9Regular9x#@9z 9|9~999 9 9q T X j%!v'Arial9Regular9x#@9z9|9~999 9 9q('Jk L G'Jj  $'v < D N - #9''''''''' aj(  '  $' -p'd $$'d ..' 'dx %ia%'BolddP z 0 'd(  0 'kkkkkk  G'j stop5j dd 9      8(:Pk  hdashk not k gotsuperj(pk celllen j!' j  G'j stop4  ' A $$ $B@H- goto next linep j!p'p $' ' $' '(p   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household) $  j(p; add 5 to 12  j!p j(p j!p $'9 j!p$'9z'' j!p' STATE:9''d STATE:'''kk       j%!vArial9Bold9x'#@9z9|9~999 9 9q8k0d(   j(p> add 7 to 15  j!p j(p'kk j%l!' ''  $!v(  $-----' j!''''k(d 6 Not a new objective. These are objective title lines   j(p: add 5 to 12  j!p j(p j!p $' j!p$' '' j!p' STATE:A ''d STATE:''k k       j%!v Arial9Bold9x$#@9z9|9~999 9 9q k d   j(p> add 7 to 15  j!p j(pd   (p  j(p@ add 9 to 18'  j!p j(pd(    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pdH  ~  j(pI add 15 to 27  j!p j(p k k k k k k ' ap j%l!'b b$B@H j!p' $' $'% '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '@  j(p18 L 'R L'T  L 'X b$B@H  j(P  R j%!v1Arial9 Regular9x#@9z9|9~999 9 9qh T X j%!v Arial9 Regular9x#@9z 9|9~999 9 9q'Jk L G'Jj  $' < D N - #$''''''''' a%l  '  $'-- -'dx $$'B@dP ..'''d  %l%'d  0 'd  ISS 0 'kkkkkk  G'j stop5       8(:e k  hdashk notk gotsuper$k celllen j!'  G'j stop4  ' A $$ $B@H1 goto next line: j!p'H $' 'S $' '   '  $'( $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household) 2  j(p? 12  j!p j(p j!p $' 8! j!p$' Bold'' j!p' STATE:9''d STATE:''kk       j%!v'LArial9Bold9x#@9z9|9~999 9 9qkd   j(pA add 7 to 15  j!p j(pkpkh j%l!' '  $!v(  $-----' j!'''kd   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p> add 7 to 15  j!p j(pd     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd0    j(pI add 15 to 27  j!p j(pkkkkkkkk% until stop3 - end of objective titledH' a j%l!'b b$B@H j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H  j(P R j%!vArial9Regular9x#@9z9|9~999 9 9q T X j%!vArial9Regular9x#@9z9|9~999 9 9qp'Jk` L G'Jj@  $' < D N - #''''''''' a  '  $' -'d $$'d ..''d %%'d  0 'dp  0 'kHk@k8k0k(k   G'j stop5       8(:k  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H j!p' $' j%l!p' $-----   $-----' j!'k@''k( ' $' '   '   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p= add 7 to 15  j!p j(pd     j(p@ add 9 to 18  j!p j(pd(    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pdH    j(pI add 15 to 27  j!p j(pkkkkkkkk until stop2 until stop1=1 '' '' aA $$ $B@H j!p' $' $' j%l!p' $-----  8B@A $$ $B@H j!p' $' $' j%l!p'k  'd  DATA ISSUES  DATA SOURCEA $$ $B@H  '  DATA SOURCE' 8!B@ Objective j(p  '  $ $$ 'A $$ $B@Hnumber j!p j(pA  $$ :  $B@Hd8  DATA ISSUES', j!p j(p  $ $$ 'A $$ :  $B@Hkh k`  8 "9  &9$9(9*9,9.90q 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q  D 8%2 >96 B9@ 9qx 8 F 8%2(6 8 H 8%2(6 8!vArial9 Bold Italic9x 9z9|9~999 9 9qd   '  'J'L Ja L 'L  L$'N N\  L $  L  L $ 'A $$ $B@H  j(p  j(P L 'R L'T 'V V R 'X R j%!vArial9Regular9x#@9z9|9~999 9 9q T X j%!vArial9Regular9x#@9z9|9~999 9 9q8'Jk( L G'Jjkd  $' $'Z ' $' $' $' $' $'    $'d'k'\normal'^ normal'`'b'd'f'h 0 0'^$ dash and second digit of first pair'\. space and dash and second digit of first pair 0 ' \ '\d 0 ^ '^'bkk 0 ^ '^  # no measure'  ' \ '\d     ' '' \ '\kkd 0 \ '\ ^ '^'`k`kX       j(p j!p'd'b'`k' Z G ^ '^j - is not a continuation line j!p \$'d ^ 'fdP ^ ` 'fd  ^ ` 'fd ^ ` 'fd ^ ` 'fd ^ 'fkhk`kXkPkHk@ Zf Zi Zj Zl Zr ZtG f 'fj Zm ZA ZBG f f $'fj bG f 'fj b ` Z G f 'fj j!p \  \ $'h d f h j(pd> -" is a continuation line 'd, 19 d j!p j(pkh>k`>kX>kP>kH>k@>  ' until stop1=1k continuesw = 1A $$ $B@H 8 &9  &9$9(9*9,9.90q=  'j G j 'jjA j $$ :  $B@H 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q< D 8%2 >96 B9@ 9q< 8 F 8%2(6 8 H 8%2(6 8!vArial9Italic9x 9z9|9~999 9 9q; l!n$ j $$ : $ $$ 9p9rqx; l!n(t l!n9v9x9z9|9~9? %9? %9 %9 %9? %9? %999 999 9*9 9 99d9q8: ' j$$: j$$ $B@H  8B@ $$: $$ $B@H  8B@, This section will bold the objective titles0 See if a focus area or Leading Health IndicatorA2$B@H j!p$' Focus Leadi Steps j!$!v(  j!$!v(z1:1$B@H  8B@2:2$B@H  8B@1.1$B@H0@ 8(  '  $1 'A1:  $B@H 8 "9  &9$9(9*9,9.qP7 8B@A1$B@H j!p' $' $'  - Z j(pd6A1:L1$B@H 8B@A1$B@H*--- D A T A 2 0 1 0 --- In-house System - Z j(pA1:A3$B@H 8!vArial9Bold9x 9z9|9~999 9 9q5k58 end for See if a focus area or Leading Health Indicator  Hisp/LatinoBHispanic or LatinoD HF LJN &B@@R1C1 B@Processing complete (o44ߵAttribute VB_Name = "Module24" Sub active() Application.DisplayAlertsArFalse DStatusBarDATA2010 In-house processing --@- Pleawait|' First find the row which hastitles cvalu7on(= 0 oncolz max stop1havey&eObjDo Until p1 /+  Range("A" + Trim(Str())).Sele,ct VACell.V_ "=R If a"Obj7" Then,]o=Row:@ A2J@E@~ \G) Offset(0,)C >GIY~CH@Ɓ3J " A.1/M"_!NEF FYLColumzendaddr#AFA%"EIffLoop#' for#v,Qv,v dh"$ lpettew3DspacDE|o#Z+ 3ntxX@thirs~be`!af@diffco ~nuesw ped~dYd!0ehJ^WMid(# , 1,( 5)"--Tj ka!IIA!K `e0+ E 3`bCE)7+ cNKxK ' Xu^a new KC_ U 6 `0lookء`a murAaW ] "Enj]eALend9!A+ =1LAIp2, 2,7)4;4#)5+ >= 7 @ ǁ>@l -0)w{nPu"x#Q"0" OrDZpd ?#! CK#no  :4c" Not ( )1 qqerw ZR@/ C2Lp$!1`q2t3t'  startlobX>mE@_r @Z1@!wherew@ ¦nqA!Ha(81currc ЄydK$bOd __o`?gi lenoK!3 ) gotsu6p2( c> c6 a(ercu6;Q?9aWeq(Qf;V@er"\}yY#d[1)P9 D,-OBE  $tos"Հ- 5 sd& DeE% O99QFormulaR1CQi0WithChabrPersP:=@7gth:=1).F8 .Name = "Arial" <.Fo@ntStyl\R@egular`SDizV9.5StrikethroughFalse0upers cript.Tru-b+ZOut0linetDhadowUndefr-xlNon`Color I xAuto maticEnd With ActiveCell.Charact@U(Start:=sdselect, Length:=DeC) .SJ 8|.S@返^Jstop6S13CIfsIf leRtOcnzc Rl`en Th Loop2 got6s: 0" S c Mid(cvalue, 1@) Not ("<") A mU'D.N.-.# a 1hdol+@"hioderceb- bzeroes aIps0asy@DYAF5yDo Until Va(+ 16DY`)KaKC@L8"-"zW#hd#'E$ /)$)./.-(z m %ߟ  7% :/ d5"=+ "0oof1oCo~d. ??????????RE= oQLo*'p '3LUv/BpSion.Number8ForLu>+ #7+ 5./ ? Vnot?0~]_thiscol olumncmaxf404onrBsdRange("A" + Trimr(rp))).Po next !C Vq/ RlbeforQ?pD!afPdiffe(- holݘ0,2@=<6(0t p"R`ace aPn icityЖOr !Mothepr's пGeq.Worksite onl "ClassPatd1 "STpATE:,5:) -O (head of house!)`*Mn If diff = 70 The ActiveCell@.ValueT" " + cv2' add 5 to 12 /spaceC gA?hold2~Mid( -, 13P, 6)5355Astart01(len PLenPLi"STATE:"H19HJ18Else DA2h,21OG2PKEnd IfO %:> 0CWith Charac@ters(Sn:=, cgth:=(@H2 - J)).Font!2.Nam¸Ar0ial"St4yl B@ Si"zA9.5RStrikethroHughFai .Sup6crHipt bs_ Outline hadowZUnder xl1b#NonNCoPlorI xAutomatic$DA=oG]Iě~8TI `ʛ[.7": ? ApgstoplociOffset(-1, 0).Addressl!}LxRange(e ,  Cd.[` Tru9@+C!, 5)"- cninuesJ/!pedrNh)Row@aa=1 ,+E ' Not a new objeb. aEse are tit ~]sLtB_Q KK?t Qq#wuetWp?a2XaBZ=A[t> pe q ?lRH? tRa@ t Ep"HtRt_@"CbQtQtt1t ttwt}.t).tttptI.tn.Sty!ttt.ttA"t#. $trOI0?t1?³A_:Y9 Or (befo0]= 1) `9  1 D 11! I/=/ / c( 1Q/ 13R 4{__ _ s_ X 2_ Q_ RB27 ?4f End I\stop4 = 0 Do Until ( 1) !currcell?ActiveC .Offset(0, 1).Address;Range(A).Select1value 0V Trim(cZ(Rflen=Len'|K=Pgot`super > 0 PThen Ac6clettercnttAtuuI(+t$3MidJ, F3AIfD "\"=A% O1 _"1H# -1x + * Eb-70% (D to>sB)W%sdF*De _r )FormulaR1C1`With@CharacWs(Start:=`0ngth:=%`).Fon&.Nam"AriHal"# " StylReg "rSiza9.5 Strikethrough `FalsescripvTru bf^ Outlinea&? .S hadow? .`UnderA xFl)Non:ColorIxAutomati~cv$AE_I%g, %Jc?J?JO?JT.?J.%%yS.S%_"0Su/%+./%/%/%&/%./%/%j/%\5v/f]lSxW|{o Loop/.PIqpc059m0T~Not (A"<") VADN-=#%rhdolla"WhPiod oWr acexbzeroes8ao psRhdas`?G " /'(5@ ?7V%d(rÆ0%? &"-_ EoP{$)$)*./.-(z m % 7% :/ ?d5?N=+ "0oof1oCo~d$/ End If PIf cnts = celllen Thstop51Loop ' 0hdas:h&0.Selection.NumberFormathdollar + b@zeroesh@perioda cent3€]gLno&gotsu"MVOthiscolE7A=veCa.Column @R maxFk4 Lkh4Konro&w + Range("A"VTrim(Str( ))).Ch@O=o next lineKcvalue5V RC )beforLen(RafterC@diff(D- B "hol"d Mid", 1@0269`"Race a@ethnicity") Or HMothe r's rGenderNWorksite onl "Clasrsjat"STATE: !5)-. (head of houseA~)Z@A &47XMNeZDF'8 12 addsp!/+ oe'#@F3, A[35start0@7;!b  U!@/EAW019/ 18ElsL!2! `~2%#T"> m With)#Cha<IsUI:=C, g th:=(0 2 - WFol.NamQ"Arial" .StylrBLCo.Siz9.5_P`ikIroug|Fa .Spscr WË5,)0.c00Tru_F Wa@Z, lPc9inuesA? rqped(Row#Z1 ?&g&tH B*&%5%u %%BAg_queteQ1"_RtXaXaZ=[,R+q&% lRH tR!b@ tI?Z p"HtRtP?p t5 ttҐt ttGt" # .Size = 9.5 trikethroughFalseRuperscriptNb %OutlineFonMhadowpUnderL%xlStyleNonfColorIxAut@omatic}End With ) If EIf diff48 Then#ActiveCell.PValu" " + cv' add 7 to 1 spaceM'/9 Or (befor(1)3263z938F3b1&0/Q0110210@Y?0 0134=PwJa 21tb 57 ~b C!Loop ' until stop3 - eof objeb titlH/4!4e0 (Do JU" (1)N, currcQOffset(0, 1).AddressoRange(%).Sel`p = ]XTrim(è% FR lenL|en Cg8ots@- A)> =6#lettercv;Q?Ղ (+O !33 Mid~,g P"\"OBQ5WE;1p2Pm+ @, -7 ?$ $|/$tos.@ -%>d& De t uO9O9pFormulaR1C1P 0X badd 5 toX 12 sppace/hxold'3, 6 Q30 _5_Qstartaϧ `[A  Q4% "STATE:bsA 19D 18p92/q2?/xto1p > l With 8Charac0&sS:=C, gth:=(0 2 -`UFB@ .Nam9"`Arialߒ.StylrBP)#oaSiz9.5P^iket hrougFa`nscripyRrb_f.OutlineA `1.Shadbk/%Underxl8Nonvor IxRAuto icOs# If diff = 8 Th0en  ActiveCell@.Value" " + cv8' add 7 `to 15!.sppaceB i >Else 9 Or (befor1)6ʀlf9f8 >f109_I`11a21ga10R13B141@91211527?2E1End If Loop ' until stop2 n1= R$ xconueswhGsourc0BissäonroaA ped1@ Do UaRange("AA4Trim(Str(b ))).Select ,$= " )R2  Offset(1, 0)c &Mid(IC , 5)`"-"Vion.Dte Shift:=xlU~p% !g!!  = qi""Qa"" Ad#& eFCI .-,DATA ISSUES"A &SOURCEN"_,J, l@ L@en(end ress) - $QiJG"E2reRow.Inser/0/QObj2`"$9s+  11-r-l)#9L_O<,O "number@ 8! / EC)A ":qFi`(&U( R{ ?u] " w)Rp!/,[a;A0Wit h F0 .HorizPjalAlignmentp xlLef2RVp3icC@erWrapTe2xFan .Oriat@\PSmp&.AddInd0?q.ShrinkToFi.Merg¾~sBW CBorders(xlDiagonalDown).LineStylxlNon"\Up;.EdgeTop$|"C3ous.Weigh1xlM ediumCo(lorx0xlAutomcgO  Bot  Y 3 ti hOxl`ide-O7g4aF| Nam$"Arhial|g.'"Boltalic}SizA9fikethrough0.Sup.crip49bsA.Oxutl1 ?Shad/= .U>rb;6[+lAutomat ic En@d Withlse4If issuesw = 1 A\sourc 0 ThenZcelllen^Len(cvalue) FV& > EJstop6G0 =let@tercntDo Until z(E1 #$()+ 3Ifnw3zDQ"o o3LoopmE-(Z1OudGq3.zmXeas`8I6Kl@3dj [Ƀ!d)2, 2Xa !4ett4L 5/er< q >= 7A75 Pun"xc=pl7H 'n~algn0umpcoA5 ' second1CHE1=b8 $+"0" OrR I 2@ dash a digit of first pair -(3space| ? r  xn+)P^aPNot җ$)?%y1$/ T$ars14! no Bur}#!2;s1b=q37P 0@  !  qe)=0 s G5 4 `3d_ o(f V0"O 9o.t1YXa _"S"2]"*E* I1 q2 q3t4t+<D iؘzElse second1 (= 12 \End If Nadd spaceP"" 2If Not (meas: ") Then numpcharM + >dh7-"6' is n Qa tinuation lin partMid(ActiveCell.Value, 1, len) Y{;O3= 0"} .4` And %0{$651?64 6536556Lx@MPVgE@f" Or iUjlrtdrah!W+ " hmjAB, !w , 2, Len() - 1v蘢4 wUq1bX3o 3s V 1@+3Ώ0?" !`MF" ' 19M+feopnrow(%Loop until stop1=`c esA  Range(" Y+ Trim(Str(obj ))).Select Wi8th ց.HorizontalAlignmeDntxlCerBVerticWrapTex Fa.Ori#@#= 0" AdpdInd@ ShrinkToFiMergryAQ d|el $9&haveyearpsX <eP)) .":"Pendressg'V.Borders(xlDiagonalDo wn).LStylxlNołUpuhEdgeTopICPousQ3.WeighxlMediumAColorxxlAutomc#7o a xBot U de  xlInside.O43.F8 NamRArialhkr#"I :icXSizqN.`?ikethroug1F6Sup)0crip6bsÿ.Out c0 ~hadLU>r#R '0!.O&O&th?b&[Sheet.PageSetupPEtTitleRowQD"$1<R/>LeTp@ umn;'  .r AreaP  .LeftH1H7[tA‹"2f:Ei1.Heigh16. 1*lLen(enda@ - eGBdl1"=Du1¶y;3 B.Horiz_alAlignmen*xlLefÁ VerzCjyWrapTexA1Oriondyb @TShrinkToActiveCell.V Cn;R If "Obj5," Then*a2t w l{rU~| y Q )   ,y,,9aY-1Y !9Qi  Aq!iA !I!Q Aq 9aIiIq ! 9 Q i !I!y!!"A"y""")#i## $A$q$$$1%q%%%Q&&& ')'i''''# (1(Q(q(((((a )-9)a))a***)+Q+ (h(h]3V>Nx'%:hH  %$ xx6!x$ (xaXxX X,(X :]36K (ht*x$ (xa"ihdx5 (h (h(h]3O>!(X 5!(X 5%:h]/:]/'*/!(X 5 :h:h]3  :h XT!(X D5!(X 45!(X $5!(X 5T(h]Z/T(hX 5 :h%D:h]/$:]/D:h]3- :hD%$:h]/:]/'r :h$:h)$:h]/:]/'T$ :h :hOD4$TD%x$ (x,x6 TD(x$ (xa`Fx5 (h(h]3'/ (h(h]3P(h%(%x$ (x a`F)x6&x'h%$ xx!x$ (xaXxX XX X X"X @x$ (x,x (h(h]t (h (h(h]33 (h!("X 5:h]3 (hj(hX D44(T"Xt tdX6 T4t"X @x$ (x,x(hT D4&x'h%$ xx"X @x$ (x,xZ(h%T @x$ (x[a0)x6:h%0,n:h%0,h#@%0,hfh%0,ich%0,fh%0,fh%0,fh%0,gh%0,jh%0,ac0[D @4 @x$ (x[a,)x6:h%,,n:h%,,h#@%,,hfh%,,ifh%,,fh%,,fh%,,fh%,,gh%,,jh%,,ac, (h 3. (h (h]3!(X 5l:h]/:]/T'D:]/4t'd:]/ ':t]/' :h :h :h :h| :hl (h\ (hL (h< (h,,(h]3t<(h<!(<"X 5:h]3 (hLU:h]3 :hS:h]3 :h (h\Q:h]3 :hO\(h]3'|:h|M\(h]3Kl:hl <3o (h,3L(h]3J|lT%x $ xx6T*x$ (xa"ihx5 (3 (hgH(hHNx'%:hH  %$ xx6!x$ (xaXxX X XX X X!( X 5!(X  5X:h ]/X:!]/X:"]/TDX:#]/4t:t$]/d  :d%]/X:]/(X :]/X:&]/|6C(h]3+:h'X%x$ (x,x5Fx$ (xa%$ (,)x6Bx$ (xa(   x6Bx$ (xa( lx6 (h\ (hL(x$ (xa<x5 :h%]3V (h\ (hLl:h%]3~ (h\ (hL\(h]t_\ @<L%x$ (x[a8)x6:h%8,n:h(%8,h#@%8,hfh%8,ifh%8,fh%8,fh%8,fh%8,gh%8,jh%8,ac8+(h]3)+:h)X%x$ (x,x5Fx$ (xa%$ (,)x6P(h%(%x$ (x a`F()x6 (h?ch%x($ xa,`)x5,(X :]36> (ht*x$ (xa"ihdx5 (h (h /(h]3+:h'X%x$ (x,x5Fx$ (xa%$ (,)x6Bx$ (xa(   x6Bx$ (xa( lx6 (h\ (hL(x$ (xa<x5 :h%]3 (h\ (hLl:h%]3 (h\ (hL\(h]t_\ @<L%x$ (x[a$)x6:h%$,n:h(%$,h#@%$,hfh%$,ifh%$,fh%$,fh%$,fh%$,gh%$,jh%$,ac$(h]3+:h)X%x$ (x,x5Fx$ (xa%$ (,)x6%(h ]/(]/"+:h*X%x$ (x,x5Fx$ (xa%$ (,)x6(h ]3+:h+X%x$ (x,x5Fx$ (xa%$ (,)x6(h ]3.+:h,X%x$ (x,x5Fx$ (xa%$ (,)x6(h ]3+:h-X%x$ (x,x5Fx$ (xa%$ (,)x6 (h(h]3~#P(h%(%x$ (x a`F)x6&x'h%$ xx!x$ (xaXxX XX X X"X @x$ (x,x (h(h]t5# (h (h(h]3 (h!("X 5:h]3u (hj(hX D44(T"Xt tdX6 T4t"X @x$ (x,x(hT D4&x'h%$ xx"X @x$ (x,xZ(h%T @x$ (x[a )x6:h% ,n:h% ,h#@% ,hfh% ,ich% ,fh% ,fh% ,fh% ,gh% ,jh% ,ac [D @4 @x$ (x[a)x6:h%,n:h%,h#@%,hfh%,ifh%,fh%,fh%,fh%,gh%,jh%,ac (h 3 (h(h]33#!(X 5l:h]/:]/T'D:]/4t'd:]/ ':t]/'1# :h :h :h :h| :hl (h\ (hL (h< (h,,(h]3"<(h<!(<"X 5:h]3! (hL":h]3" :h":h]3A" :h (h\":h]3a" :h"\(h]3"|:h|"\(h]3"l:hl <3" (h,!L(h]3/#J|lT%x $ xx6T*x$ (xa"ihx5 (3y# (hH(hHNx'%:hH  %$ xx6!x$ (xaXxX X XX X X!( X 5!(X  5X:h ]/X:!]/X:"]/TDX:#]/4t:t$]/d  :d%]/X:]/(X :]/X:&]/|6)(h]3(+:h'X%x$ (x,x5Fx$ (xa%$ (,)x6Bx$ (xa(   x6Bx$ (xa( lx6 (h\ (hL(x$ (xa<x5 :h%]3& (h\ (hL&l:h%]3& (h\ (hL\(h]t(_\ @<L%x$ (x[a)x6:h%,n:h(%,h#@%,hfh%,ifh%,fh%,fh%,fh%,gh%,jh%,ac((h]3(+:h)X%x$ (x,x5Fx$ (xa%$ (,)x6P(h%(%x$ (x a`F()x6 (h?ch%x($ xa,`)x5,(X :]36) (ht*x$ (xa"ihdx5 (h (h/(h]3b,+:h'X%x$ (x,x5Fx$ (xa%$ (,)x6Bx$ (xa(   x6Bx$ (xa( lx6 (h\ (hL(x$ (xa<x5 :h%]3+ (h\ (hL<+l:h%]3:+ (h\ (hL\(h]t],_\ @<L%x$ (x[a)x6:h%,n:h(%,h#@%,hfh%,ifh%,fh%,fh%,fh%,gh%,jh%,ac/(h]3,+:h)X%x$ (x,x5Fx$ (xa%$ (,)x6/%(h ]/(]/-+:h*X%x$ (x,x5Fx$ (xa%$ (,)x6/(h ]3 .+:h+X%x$ (x,x5Fx$ (xa%$ (,)x6/(h ]3.+:h,X%x$ (x,x5Fx$ (xa%$ (,)x6/(h ]3/+:h-X%x$ (x,x5Fx$ (xa%$ (,)x6KM> (h(h]36P(h%(%x$ (x a`F)x6&x'h%$ xx!x$ (xaXxX XX X X"X @x$ (x,x (h(h]t6 (h (h(h]34(h!("X 5:h]33 (hj(hX D44(T"Xt tdX6 T4t"X @x$ (x,x(hT D4&x'h%$ xx"X @x$ (x,xZ(h%T @x$ (x[a)x6:h%,n:h%,h#@%,hfh%,ich%,fh%,fh%,fh%,gh%,jh%,ac[D @4 @x$ (x[a )x6:h% ,n:h% ,h#@% ,hfh% ,ifh% ,fh% ,fh% ,fh% ,gh% ,jh% ,ac (h 33 (hg0(h]36!(X 5l:h]/:]/T'D:]/4t'd:]/ ':t]/'6 :h :h :h :h| :hl (h\ (hL (h< (h,,(h]3D6<(h<!(<"X 5:h]3e5 (hL%6:h]35 :h#6:h]35 :h (h\!6:h]35 :h6\(h]35|:h|6\(h]36l:hl <3?6 (h,5L(h]36J|lT%x $ xx6T*x$ (xa"ihx5 (36 (h7/H(hHNx'%:hH  %$ xx6!x$ (xaXxX XH(h%(%x$ (x a)x5R(X :]/X:]/T:]/D'4t68,(X :]36}8 (ht*x$ (xa"ihdx5 (h (h XX X X(h]3;+:h'X%x$ (x,x5Fx$ (xa%$ (,)x6Bx$ (xa(   x6Bx$ (xa( lx6 (h\ (hL(x$ (xa<x5 :h%]3A: (h\ (hLk:l:h%]3i: (h\ (hL\(h]t;_\ @<L%x$ (x[a)x6:h%,n:h(%,h#@%,hfh%,ifh%,fh%,fh%,fh%,gh%,jh%,acK>(3<+:h)X%x$ (x,x5Fx$ (xa%$ (,)x6I>%(h ]/(]/<+:h*X%x$ (x,x5Fx$ (xa%$ (,)x6G>(h ]38=+:h+X%x$ (x,x5Fx$ (xa%$ (,)x6E>(h ]3=+:h,X%x$ (x,x5Fx$ (xa%$ (,)x6C>(h ]3A>+:h-X%x$ (x,x5Fx$ (xa%$ (,)x6@$t(h]3S (h (h dH (h(h]3SNx'%:hH  %$ xx6!x$ (xaXxX XX XH(h%(%x$ (x a)x5,(X :]36@.h%x $ x./xNx'%:hH  %$ xx6!x$ (xaXxX XX XH(h%(%x$ (x a)x5%X:h]/:]/'@ (hS%X:h0]/X:1]/GNx'%:hH  %$ xx6$(hTX:h1]3MC (h+x $ xW23x5!:h %x$ (x,xH(hHBT$ H  T6Nx'%:hH  %$ xx6O45*Fx$ (xa%$ (,)x6tx'%:H(h T TD:64t%$ xx6 TD4tXDX:h0]3VD (hH:h7x$ (xa%$ (,)x6BT$ H  T6bx'%:hH  :6TD%$ xx6 TDx $ Qxh%8h%9fh%:(h%;fh%<fh%=fh%><%h%x $ x?C@x5<%h%x $ x?C@x56h%x $ x?qxh%lC@h%lCAh%lCB q6h %x $ x?qxh%lC@h%lCAh%lCB q<%h %x $ x?C@x5<%h %x $ x?C@x5*x $ xWCqx:h%lCD:hE%lCF(h %lCGfh%lCHfh%lCIfh%lCJfh%lCKfh%lCLh%lCMh%lCB qS%(h]/(]/'K X(h]tK (h (h(h]3K(h!("X 5:h]3Ku(hX :T4tt(D"Xd d X6 DtTdNx'%:hH  %$ xx6"X @x$ (x,x"X @x$ (x,x(hT D XxxT4Z(h%T @x$ (x[at)x6:h%t,n:h%t,h#@%t,hfh%t,ich%t,fh%t,fh%t,fh%t,gh%t,jh%t,act[D @4 @x$ (x[ap)x6:h%p,n:h%p,h#@%p,hfh%p,ifh%p,fh%p,fh%p,fh%p,gh%p,jh%p,acp (h 3K (hGS(h]3S!(X 5!(X `5 XT!(X D5!(X 45!(X $5!(X 5!(X 5T(h]Z M/T(hX 5M :h (hP (h@ (h0 (h :h :h :h%D:h]/$:]/O (h@ (hPD:h]3M :hDP(hP ND:h]/N@(h@ (h $:h]3N@(h@:h]3pN :h$:hP(hPN:h]/N$ :h :hP(hPO$:h]/OP(hP@(h@ (h0OD4$TD%x$ (x,x6 TD(x$ (xaTx5O (h (h0 :h`:h]/O@(h@:h]3(S<x$ (xaP x5@(h]3IP :hNDQ%@(h]/0(]/'~P :hOBQ%@(h]/0(]/'P :hN@Q%@(h]/0(]/'P :hP>Q%@(h]/0(]/'Q :hONx'%:h  %$ xx6x $ Qxh%8h%9fh%:(h%;fh%<fh%=fh%>c(h(h]3T(hmx'%:(h  T:6D$4%$ xx6 TD4<%h%x $ x?C@x5<%h%x $ x?C@x56h%x $ x?qxh%lC@h%lCAh%lCB q6h %x $ x?qxh%lC@h%lCAh%lCB q<%h %x $ x?C@x5<%h %x $ x?C@x5*x $ xWCqx:h%lCD:h[%lCF(h %lCGfh%lCHfh%lCIfh%lCJfh%lCKfh%lCLh%lCMh%lCB q%x$ @xW\qxy:(h  T:6D:4t td d %lC]6TDt4d :h%lC^ q(:h%x$ @xW\C_x5%x$ @xW\||qxx:h%lxC`:h%lxCa:h%lxCb:h%lxCc:h%lxCd:h%lxCe;p ?x$ x opkh%lxCfx;p ?x$ x opkh%lxCgx6p 9x$ x opkh%lxChx6p 9x$ x opkh%lxCix;p ?x$ x opkh%lxCjx;p ?x$ x opkh%lxCkxfh%lxClfh%lxCmh%lxCnfh%lxCofh%lxCph%lxC;fh%lxCqh%lxCrh%lxCsfh%lxCt(hd%lxCu qx `y  :h6T TD D4%x$ xdvx6TD4d.h%x $ x./xy`  :h6`T TD D4%x$ xdvx6TD4d.h%x $ x./x(x'%:hw%$ xxBx$ (xa( Xx66X:hx]/X:y]/X:z]/TD``c%'h%x$ (xa`F%$ a\\,`)x\6b(%'h%x$ (xa`F%$ a\\,h)x\61:h{%x$ xvx5.h%x $ x./x1:h|%x$ xvx5.h%x $ x./x1:h}%x$ xvx5,h0@%x $ x~x$(hT(T$ :h52x'%:h%$ xx5x $ QxXh%X8h%X9fh%X:(h%X;fh%X<fh%X=cX!x $ xx(x'%:h%$ xx!x$ (xaXxX XX X=X:h F%x$ (x,x6tb(x'%:h%$ xx!x $ xx(x'%:h%$ xx1 #T*F%x$ (x,/Tx5(x'%:h%$ xx*x $ xWCDDq@x:h%l@CD:h(%l@CF(h %l@CGfh%l@CHfh%l@CIfh%l@CJfh%l@CKfh%l@CLh%l@CMh%l@CB q@h:h%:%t%%c%f0%f%x$ Xx"x* '%:h%x$ x x&:h% x$ x x|4c_0,8$  tpX|Dl8dtHD,4T`$LX 04`x((<\\$LTPD@l <|hTx\TD4td |k{?jOffset(0,)s?i=?raw> ^"?"R H se QE -1K9Standardb& errorColumns().Width#79End IfW>" A@W@>1t:\JLoopAArU~| krU $`nrU~| __SRP_11gModule26.4u__SRP_12/ T__SRP_13g      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPRSTVbXYZ[\]^_`aUcdefghijklmnopqrstuvwxyz{}~st find the row which has the titles''''''' ap  'A $$ $B@H j!p' $' $'  Objective j!'p''' a$  '  j%l!p' j% $' $' YearG'jl   j%l!p'd  j%l!'  j%l!'5 to 2kk0 end for First, find the row which as the titles'''N''  ''''''''' a' aA $$ $B@H$ j!p' $'' $-----' j!'B@''kP B@ $' $' -  (RS|mQxME(6 << <x `::p%H@lB$*\Rffff*0c48ae88e5:" .8@HPX`h p$    0 @ ` p  0   (08 6@ x  $ @P `     82( `p   0 8@H h .      ( *0` hx2    (08 @ HXh x  < P`px   " ( 8 H P X ` h p x  "             ( 0 H  P ` Zx           0 @ X h p x              0 @ H P X ` h p   $       (  @ P :`        0 @0P (@HPX `*p   40h        >  `0p08@H`hpx *  (0 8 @4P  6  <0p  >  BX p x         ( 0@P ` p < 8HX`p   " 08@HPX`h"p0 8HZ` (@PX` p    (08@HPXp $   ( 8 :H          0 H ` p(    8 @ H P h p x   *     !!!! !(!0!8!@! H!4X!!!!!!! !" "0"8"@" H" P"0`"""""""# #(#0#8#P#X#`#h# p#*## ######$$$$ $ ($ 0$4@$x$ $ $6$$ % %< %`% x% %>%% % %B&H& `& h& p& x& & & && .&& & &&'  '('0'8'@'H'P'X' `' h'x'' ' '' '''''((((<0( p((((( (((((((( ( )")8)H)X)h)p)x))))))"))))**** *(*0*8*@*H*P*h* p**Z**++++ +(+0+8+ @+P+`+x++++ +++ ++++ ,, ,(,8, @,P,`,h,p,x,,,,, ,$,, --(- 8-H- `- p- $- - - - <-"(.P. X.h.p.x. . . . . . .0./ /@/`/h/p////////// /*/(0 80H0X0`0h0p0x00000 0 0400 1 1601h1 1 1<11 1 1>2H2 `2 h2Bx22 2 2 2 2 2 3 33303  H3X3`3h3p3 x3$3 3333 4  4 $84 `4 p4 4 444 4424 $5 @5 P5 h5 p5 5 5 (5 $5 @5 886 p6 x6 6 B6 (6 27 @7 H7 P7X7`7h7p7x777 7777 7 7 778 8  8 (80888P8 h8 x8 8 8 8 8 8 8 8 8 8888 9 9(90989H9X9p9D9$9 9 :: : (:8:"H:p:::::::::::":;;(;8;@;H;P;X;`;h;p;x;;;; ;; ; ; ; ;< <8<P<h< < << <<<<<==== = 2@= <x= = == = =>>  > (> 0>@> P>p>x>>>>> >>>>> ? ? ?0?@? H? P? *X? ?? ? ?? ? $? 0?@ 8@H@X@`@x@@@@@@@@@AA A 0A@AHAPAXA`AhAhpALA (B@HB&BB B 0B&C(C @C HCPCXC`ChCpCCC C C  CDC8D@DHD XDhDpDxDDDDDDDDDE(E0E8E@EHEPEXE`EhEpExEE E EEEEEEEE E E E F  F (F 0F 8F @F HF PF XF`FhF FFFFFFFF FFFFG( Fir found a new objective $'# looking for a measureS  ' SOURC  G'j$ 'B@ $' $' $' $'    $'$d'k 0 0numb 0G 'j 0  0 no measure$'  'd( 0     '  ' 'kk       j(p $k j!'A ' a find where objective title ends` ' a$ j%l!'b9. b$B@H 8 &9  &9$9(9*9,9.90q j!p'9@ $' $' '>96  j(p9'  %2'J'L Ja L 'L  L$'Nld N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q   j(P R j%!v Arial9 Regular9x#@9z 9|9~999 9 9qx T X j%!v'XArial9Regular9x#@9zia9|9~999 9 9q'Jk L G'Jj j% $'ia < D N - #9''''''''' a  '  $' -''d $$'$d` ..''d0 %%'d  0 'd  0 'kkkkkk  G'j stop5       8(: of k  hdashk not. sk gotsupersecondk celllen j!'  G'j stop4\  'A $$ $B@H- goto next line j!p' $' ' no $' ' '   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household)G ^   j(p; add 5 to 12  j!p j(p' j!p $' j!p$' `'' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p> add 7 to 15  j!p j(pkxkp j%l!' '  $!v(  $-----' j!'''k d 6 Not a new objective. These are objective title lines   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''k k       j%!vArial9Bold9x#@9z9|9~999 9 9q k d   j(p> add 7 to 15  j!p j(pdX     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pdp    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pk k kx kp kh k` ' a j%l!'b b$B@H 8 &9  &9$9(9*9,9.90q j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q8  j(P R j%!vArial9Regular9x#@9z9|9~999 9 9q T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jk L G'Jj  $' < D N - #''''''''' a  '  $' -'d $$'dx ..''dH %%'d   0 'd  0 'kkkkkk  G'j stop5       8(:k  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H1 goto next line 8 &9  &9$9(9*9,9.90q0 j!p' $' ' $' '   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household)   j(p? 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kkx       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(pA add 7 to 15  j!p j(pkPkH j%l!' '  $!v(  $-----' j!'''kd   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p> add 7 to 15  j!p j(pdh     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pkkkkkxkpkhk`% until stop3 - end of objective titled(' a j%l!'b b$B@H 8 &9  &9$9(9*9,9.90q j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q  j(P R j%!vArial9Regular9x#@9z9|9~999 9 9qX T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jk L G'Jj  $' < D N - #''''''''' a  '  $' -'dh $$'d@ ..''d %%'d  0 'd  0 'kkkkkxkp  G'j stop5       8(:k  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H j!p' $' j%l!p' $-----   $-----' j!'k''kx ' $' '   '   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''dP STATE:''k k       j%!vArial9Bold9x#@9z9|9~999 9 9qhk`dX   j(p= add 7 to 15  j!p j(pd     j(p@ add 9 to 18  j!p j(pdx    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pk k k k k k k k until stop2 until stop1=1 '' '' aA $$ $B@H j!p' $' $' j%l!p' $-----  8B@A $$ $B@H j!p' $' $' j%l!p'kH  'd  DATA ISSUES  DATA SOURCEA $$ $B@H  '  DATA SOURCE' 8!B@ Objective j(p  '  $ $$ 'A $$ $B@Hnumber j!p j(pA  $$ :  $B@Hd  DATA ISSUES', j!p j(p  $ $$ 'A $$ :  $B@Hkk 8 "9  &9$9(9*9,9.90qh 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q D 8%2 >96 B9@ 9q 8 F 8%2(6 8 H 8%2(6 8!vArial9 Bold Italic9x 9z9|9~999 9 9qd   '  'J'L Ja L 'L  L$'N N\  L $  L  L $ 'A $$ $B@H  j(p  j(P L 'R L'T 'V V R 'X R j%!vArial9Regular9x#@9z9|9~999 9 9q  T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jkx L G'JjXkPdH  $' $'Z ' $' $' $' $' $'    $'dH'k8'\normal'^ normal'`'b'd'f'h 0 0'^$ dash and second digit of first pair'\. space and dash and second digit of first pair 0 ' \ '\d 0 ^ '^'bkk 0 ^ '^  # no measure'  ' \ '\d`     ' '' \ '\kkd 0 \ '\ ^ '^'`kk       j(p j!p'd`'b'`kH' Z G ^ '^j - is not a continuation line j!p \$'d ^ 'fd? ^ ` 'fdp? ^ ` 'fd@? ^ ` 'fd? ^ ` 'fd> ^ 'fk>k>k>k>k>k> Zf Zi Zj Zl Zr ZtG f 'fj Zm ZA ZBG f f $'fj bG f 'fj b ` Z G f 'fj j!p \  \ $'h d f h j(pd0= -" is a continuation line 'd, 19 d j!p j(pk<k<k<k<k<k<  ' until stop1=1k continuesw = 1  'j G j 'jj l!n$ j $$ : $ $$ 9p9rq; l!n(t l!n9v9x9z9|9~9? %9? %9 %9 %9? %9? %999 999 9*9 9 99d9qx:A2:P4$B@H 8 &9  &9$9(9*9,9.90q: 8!vArial9 Bold Italic9x 9z9|9~999 9 9q9B6:B2000$B@H 8 "9  &9$9(9*9,9.90q89A1$!v( R1C1 B@o98ŵAttribute VB_Name = "Module26" Sub PI() ' First find the row which has"titles cvaluonP= 0 oncolmaxstop1haveyear obj;Do Until -1 ^ + Range("A" + Trim(Str(#))).Se0lect@VActiveCell.V_ "=ER If "Obj7." Txhen,]o=Row u2  ) Off@set(0,)C >GIY?~CH@Ɓ3J " nA.1/M"_!NElseb FYLColumzendad`dress#AKC E;IfL8oopC'  forC,!L dh"$ lettep"w3DspacD|$v+ 2mE@_r @Z1@!wherew@ ¦nqA!Ha=(81currc Є?ydK$ With io.Horiz`oalAlignmbeBtxlC! .Verticnt$ .WrapTexqyFaߍ@ .Oria^t 0<P .I x,6Nerc( K1QO1AMak + #7+ 5./  Vno/!~thiscolVolum_Qmax]f404o|nrBsd"A" + Trimr(r))Po n!C δl.Value $ cvx = RTrim(p)|beforeq|Lentzxaftervdiff(a- -zhold MidQx, 10 "2#6"If >'"Race and ethnicity") Or Mother's rGender!Worksite onl0f"Classeps at a"STATE:& 5)g-r (head of house) ThenzA3@Ke7 OAActiveCel!" + ' add 5 to 12A P sp]+ MNAFM 3, Ɂ['A 3-T 5S sPtart 0!lenWAv (HE&?^4ł`@ $19'O$%18OEls`B!T212%EoIf > 0!!WithIFChFaws(SA7:=, 1gth:=( $2 - %)).Font!Q.Nam"A`rial"RaShtylBSDiz!9.5Strikrou$ghTFa4 .SuperscPriptb.OutlineA hadowZUg xlb#N onNColorI xAutomatic$GA=oJ]Iě8TIt`"Ed.7"?: ? pdstoploc( Offset(-0).Addrxessl>,ldApuet"@t׀PtW?a2XaBZ=A[-2t t> p-$}ta@ t EtƶrCtt_@"CbQtQttt ttߦwt}.t).tttp?tIt.Sty.trFt.ttA"t#. $trZr:04t<t$1ſ?m_:: 9B߹1)j! `Z9Z TwZ 1 f= " " + cvalue ' add 11 to 21 ActiveCePll.V^=^sppace : |Else If d iff =pThen {o+:34!Uzb2 +bd5d7Kdnd IfEJstop4|0Do Untild (1)K@F currc@Offset(0, 1).AddressRange(E).Select Wit$h Cioϣ.HorizontalAlignmeDnt"xlCer.Vertice WrapTe2xFa@.Ori@at'P?IndShrinkToFi Merg}>s a;%nE= wXTrim(cc>= R@Clen Len Cgotsuper@-aQH> 0S Y65lettercbHo9 bb ) (+ bE3MidD%,?Ai a"\" 'C FI1 -R`%1-gI$@Etos…%+$sdF2De _Ͽ_M= _M!_M`_Me_M _M._M܆0>._M_M#FormulaR1C>1D"Charac?s(Start:=@,PK gth:=&).FfO#.Name"Arial"StylReg r .Siz9.5ogStrikethroughO?g'.STscripgTruob.Outline#adowUurxlNon '.Color!yxAutom{cOD/($$G, %E%% )%9%Y%z%_"p-u/%+/%/%./%&/%/%/%[/%\E?zckжo Loop?0PYpc05LNot (A"<") AUDN-#O%rhdolla!"Wh`iod oW acxbzer oeѻg  azeroes = "" Hpsw0B hdashFcntiFstop5FDo Untitl ,1v(!+ 1)letterAMid(cvalue, ,If "-" Then6ObElse %>$>olla;"$Y*l .e @period\".\ !CJIj%h*Pcent*%?Kf6 bE+ l"0!1/ '% End IfW  w `"Bcelllenb( Loop 'C#zF4 Selection.NumberFor$maVhd|+ Gh$o+:+ aa\X#`n otrgots>u@d+thiscol/AveC0.ColumЮ )maxwB04`44Konro Range("A" + Tri@m(Str(b)8)).#4'o next linMWith9 G.HorizontalAlign"mxlCerVerticnnWrapT! = Fag .Oria&}.AddInd0? .ShrinkToFi*OBMergr?<[ s{!V|oue`RSbefor1LenO1 91af3?diffp(- holqr1P0od2|6l1 "Race apZethnicity") Or (Mothe`r's rG er.Worksite onlT "Class9atdq "STATE:lt5) -O (head of@ house!)`qt7X -'qA$#p' 12)O addsp+.? #3, w Q3 _A15_Qstarta@nA1 *% /r@ 19zA 18Oq~92oq2tp Px> 0d8<Isi:=C, gth:=(0 2 -0kFf``NamQ"Arial.StylrBLoaSiz89.5 tikIrouga`@ !.Sscrip_e4tb_.OutyA `1_slad2/%UgQxlNNobortx!RAutoicOp`# Else If diff = 8 ThenActiveCell.Va(lueZ" " + cv8' add 7 to 15%O2spaceF mBEnd If'stoploc[(.Offset(-1, 0).AddreXss)*31 Range(start/, 4).Font.BoldTruMid(, B5)"-" c-inueswÍCpedro 0mWith @Characters(Sa~:=, 1@gth:=(`2h - A)À).NamAria l"RAStylGASiz!9.R.Strikethrough xFa .Supcript bsOutline hadUnder  xlb#NonpColorI xAutomaticQ-GA=oJu ` ?/ 09 Or (befor%1)1Q `Z9 Cჿ+ 1o= <ϏfD 11! I}/=/ Ǔ/ ( 1 /D |13R 4K__ _ sX 2_ Q_ R27 ߪ1? ??! SqLoop ' until3ge of obje titlQ14HtDo U`op1_ currc0x0p C).Sel0 |wio_.HorizalAl@ignmenQkx$lCerN.Vler_n|WrapTexpu0.Orieon?Pgb mq.ShrinkToFiBMergsp#"k=J= TrimDogR5!  Qs S= gots Fߜf .F6letp cK1QO1+  ã,g4Pc "\]R gotsuper = 1  8cvalue!Mid(, 1, lettercnt - 1) + >8+VcelllenR)pActiveC2.Vzv1toselect(y2sd3De/*eRange(curr1).SS3With ionB.HorizontalAlignme= xlC erVerticWrapTexNFalseOri@at'X0AddIndShri@nkToFiM(erg}sEn+ #7+ 5./  ˴ End If ' not gotsup er celllenthiscol = Ac tiveCP.Cpolum,/max8Then stop4C1 `pLoop o0nrow0+  8Range("A" + Tri@m(Str())).Seleccvalue(cV ;R+ )2%Offset(1, 0).,(Mid(I(, 5)!"-") Or  " A4"Dz continue>sZ XAAfpedbHNRowO"01;AQbeforpL 0!Withhar4acas@7:= , 1gth:=( $2 - % F" .Nams"Aria l"RaStylBRSiz!9.5ikethroughT,Fa4@SscPriptb.Outline1 hadUnder xlqb#NonNorI xAut@omaticO A"#$M8$p+)$rn M0M7MO-?Mu ?: 9t&c|1)  d 9 oC  1O=2 11! I}=/ "/ ) 1 / / q1_ 3R 4.__ _ so%g%12_ Q_ R 27 71@If+/@Cſ| uu l>1r=r Ws0ourcsiss="R ÅCDo Uŏez @"%?ƥSM+ ion.Dte Shift:=hp0*0?=Ci6O (H"mɩADATA ISSUES"gg@SOURCE/ // qƴLen(endaddress) @- 1 If cvalue = "DATA SOURCE"` Then dsourceswV 4Selection.EntireRow.InPsert CA%veCell.VwObjryxlb;61D._+_+d q*ggY(e A`T0 c`len aσ|.Yf> _ 0stop6pO lettercY Do U@l (U1MT("33 P 0"\|RE\ᑖ`R y׿P ,-W ewGUtO6XFormulaR1C1PtosҫH/$sd&cT,!o,4hDe- U BbHCharac-sЯart:= gth:=Q.R kShRegr,S.S.5gTOyUTruJV;&.OW .SXXeYXYL $$0, %u+)%%%la%%.%%%tSu{+/%;|/% #%ϴline = x@lUnderStyleNone .Col(orIxxAutomaticfEnd WithA@stop6L1!?IfIf lettercntAcellle0n ThVLoop Q 3Els4sourcesNwT0 dh Mid(cvalue, 3, 1) meas 6 lLen!rZ112 2, 2"3 4O45er 2e >= 7J2M7, l - 5*_@ ""UCl~partAJ7 'normalG numpchaBra5 ' secondP0 A"\FjA"0" OrBB A = -2-dash a& digit of first pair D3spac~e-D4 4bn&(f+S>Not @t:@&)oJ $g+ :KmI,, 5? Dcd bi" "@4no !urѰ`, w+@ 0R13o@1`2%32eS!"0G 49 ?j`/0"m\ U2wU!UActiveC.V01 +Ž2t3t4tDi]>#6@  C addCK= iTEtu 43 A_@B{"-7is@at a `tinupon ]LrleC)N(` 3Ld<9 4 A !$0^617P 5 Mp[= `! 6?_?@4____oqU8f2iUjlrt49s!mm:zAB;R0, QM)p|0xLRrt:bpSG (l812,t Te0h?HH.I LP^߱AbqAbq3 .A EUX' PUU_΍ģ+"`19o ra  3{}1d:WonrosgQ @until 1v=0} Tg4 dela(obj1-Rhaveyea}#I s 1 Sheet`.PageSet up .PrintTitleRows = "$" + Trim(Str(d@elrow1H1d)) ":< Ho$bjH))CoPlumn" End With ActiveSheetArea73 .I.LeftHeader9Center Righ(Foo( ( (Margin(Application.InchesToPos(0.75 )1Top!1 Bottom CW 0. 7J0ingFalseȃGridlineCommxl NoorizontallypM 0VertvOri@B}xlLa@ndscap .DraftFirstNumbBxlAukc*OrxlDownThenOverBlackAndWhite Zoom100vAj Range("A2:P4").SelectG |  \) .HF)Aligna0@xlc(* .WrapTex( . 1.AddIlPP +f'.FC N ".Nam7"`Arial !Styl"Bold I VichSizA9l ikethrough.Super`scrip4 bqOutrau hPadowU@3r3xlNoni".@or9xf0D[B6:B2000[n ([![d[[-vU-<.M-^A1Aj.)=upGoto Reference:="0R1C1+Sub krU $`nrU~| krU $`nz0* pHd VBAProject4@j = Module27Vy__SRP_1436T__SRP_15g_VBA_PROJECT.st find the row which has the titles''''''' a  'A $$ $B@H j!p' $' $' Measure j!'p''' a$  '  j%l!p' j% $' $' MethodG'j   j%l!p'd  j%l!'  j%l!'kk0 end for First, find the row which as the titles'''N''  ''''''''' a' aA $$ $B@H j!p'@ $' $-----' j!'''kP ` $' $'pa -  (|mxME(6 << <x `::p%H@lB$*\Rffff*0d48ae88e5:" .8@HPX`h p$    0 @ ` p  0   (08 6@ x  $ @P `     82( `p   0 8@H h .      ( *0` hx2    (08 @ HXh x  < P`px   " ( 8 H P X ` h p x  "             ( 0 H  P ` Zx           0 @ X h p x              0 @ H P X ` h p   $       (  @ P :`        0 @0P (@HPX `*p   40h        >  `0p08@H`hpx *  (0 8 @4P  6  <0p  >  BX p x         ( 0@P ` p < 8HX`p   " 08@HPX`h"p0 8HZ` (@PX` p    (08@HPXp $   ( 8 :H          0 H ` p(    8 @ H P h p x   *     !!!! !(!0!8!@! H!4X!!!!!!! !" "0"8"@" H" P"0`"""""""# #(#0#8#P#X#`#h# p#*## ######$$$$ $ ($ 0$4@$x$ $ $6$$ % %< %`% x% %>%% % %B&H& `& h& p& x& & & && .&& & &&'  '('0'8'@'H'P'X' `' h'x'' ' '' '''''((((<0( p((((( (((((((( ( )")8)H)X)h)p)x))))))"))))**** *(*0*8*@*H*P*h* p**Z**++++ +(+0+8+ @+P+`+x++++ +++ ++++ ,, ,(,8, @,P,`,h,p,x,,,,, ,$,, --(- 8-H- `- p- $- - - - <-"(.P. X.h.p.x. . . . . . .0./ /@/`/h/p////////// /*/(0 80H0X0`0h0p0x00000 0 0400 1 1601h1 1 1<11 1 1>2H2 `2 h2Bx22 2 2 2 2 2 3 33303  H3X3`3h3p3 x3$3 3333 4  4 $84 `4 p4 4 444 4424 $5 @5 P5 h5 p5 5 5 (5 $5 @5 886 p6 x6 6 B6 (6 27 @7 H7 P7X7`7h7p7x777 7777 7 7 778 8  8 (80888P8 h8 x8 8 8 8 8 8 8 8 8 8888 9 9(90989H9X9p9D9$9 9 :: : (:8:"H:p:::::::::::":;;(;8;@;H;P;X;`;h;p;x;;;; ;; ; ; ; ;< <8<P<h< < << <<<<<==== = 2@= <x= = == = =>>  > (> 0>@> P>p>x>>>>> >>>>> ? ? ?0?@? H? P? *X? ?? ? ?? ? $? 0?@ 8@H@X@`@x@@@@@@@@@AA A 0A@AHAPAXA`AhAhpALA (B@HB&BB B 0B&C(C @C HCPCXC`ChCpCCC C C  CDC8D@DHD XDhDpDxDDDDDDDDDE(E0E8E@EHEPEXE`EhEpExEE E EEEEEEEE E E E F  F (F 0F 8F @F HF PF XF`FhF FFFFFFFF FFFFG( FirRoot Entry Fl 'Workbook\_VBA_PROJECT_CUR"=<0>Y"Y"VBA0>Y"@SY" found a new objective $'# looking for a measure '  G'j ' $' $' $' $'    $'d'k 0 0 0G 'j 0  0 no measure'  'd( 0     ' ''kk       j(pk j!'' a find where objective title ends' a j%l!'b b$B@H 8 &9  &9$9(9*9,9.90q j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q   j(P R j%!vArial9Regular9x#@9z9|9~999 9 9qx T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jk L G'Jj  $' < D N - #''''''''' a  '  $' -'d $$'d` ..''d0 %%'d  0 'd  0 'kkkkkk  G'j stop5       8(:k  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H- goto next line j!p' $' ' $' '   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household)   j(p; add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:$''kk  ty (     j%!vArial9 Bold9xp#@9zj9|9~999 9 9qkd '  j(p> add 7 to 15'  j!p j(pkxkp j%l!' '  $!v(  $-----' j!'''k d 6 Not a new objective. These are objective title lines   j(p: add 5 to 12  j!p j(pj j!p $'H j!p$'' '' j!p'  STATE:--''d STATE:'''k k       j%!vp Arial9pBold9x'#@9zp9|9~999 9 9q k d '  j(p> add 7 to 15  j!p j(pdX   !v  j(p@ add 9 to 18  j!p j(pd  9  j(pC add 11 to 21  j!p j(p dp   j  j(pF add 13 to 24  j!p j(pjd  18  j(pI add 15 to 27  j!p j(p ak k kx kp kh k` ' a  j%l!'b j( b$B@H 8 &9  &9$9(9*9,9.90q j!p' $' $' 2 ' j  j(pp'  'J'L Ja L 'L  L$'Nob N\'  L $  L  L $ '$  j(p8 L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q8  j(P R j%!v'LArial9Regular9x#@9z9|9~999 9 9q T X j%!v jArial9Regular9x#@9zX9|9~999 9 9q'Jk L G'Jj j% $'ia < D N - #9''''''''' a  '  $' -'d $$'Gdx ..''dH %%'d    0 'd  0 'kkkkkk  G'j stop5 $      8(:hk  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H1 goto next line 8 &9  &9$9(9*9,9.90q0 j!p' $' ' $' 'dash   '  $' $' Race and ethnicity Mother's race and ethnicity Gender  Worksite only  Classes at STATE:  $----- &Race and ethnicity (head of household) !  j(p? 12  j!p j(p j!p $'  j!p$' '' j!p' STATE:''d STATE:''kkx       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(pA add 7 to 15  j!p j(pkPkH j%l!' '  $!v(  $-----' j!'''kd   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''d STATE:''kk       j%!vArial9Bold9x#@9z9|9~999 9 9qkd   j(p> add 7 to 15  j!p j(pdh     j(p@ add 9 to 18  j!p j(pd    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pkkkkkxkpkhk`% until stop3 - end of objective titled(' a j%l!'b b$B@H 8 &9  &9$9(9*9,9.90q j!p' $' $' '  j(p'  'J'L Ja L 'L  L$'N N\'  L $  L  L $ '  j(p L 'R L'T  L 'X b$B@H 8 &9  &9$9(9*9,9.90q  j(P R j%!vArial9Regular9x#@9z9|9~999 9 9qX T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jk L G'Jj  $' < D N - #''''''''' a  '  $' -'dh $$'d@ ..''d %%'d  0 'd  0 'kkkkkxkp  G'j stop5       8(:k  hdashk notk gotsuperk celllen j!'  G'j stop4  'A $$ $B@H j!p' $' j%l!p' $-----   $-----' j!'k''kx ' $' '   '   j(p: add 5 to 12  j!p j(p j!p $' j!p$''' j!p' STATE:''dP STATE:''k k       j%!vArial9Bold9x#@9z9|9~999 9 9qhk`dX   j(p= add 7 to 15  j!p j(pd     j(p@ add 9 to 18  j!p j(pdx    j(pC add 11 to 21  j!p j(pd    j(pF add 13 to 24  j!p j(pd    j(pI add 15 to 27  j!p j(pk k k k k k k k until stop2 until stop1=1 '' '' aA $$ $B@H j!p' $' $' j%l!p' $-----  8B@A $$ $B@H j!p' $' $' j%l!p'kH  'd  DATA ISSUES  DATA SOURCEA $$ $B@H  '  DATA SOURCE' 8!B@Measure j(p  '  $ $$ 'A $$ $B@Hnumber j!p j(pA  $$ :  $B@Hd  DATA ISSUES', j!p j(p  $ $$ 'A $$ :  $B@Hkk 8 "9  &9$9(9*9,9.90qh 8 4 8%2(6 8 : 8%2(6 < 8%2 >96 B9@ 9q D 8%2 >96 B9@ 9q 8 F 8%2(6 8 H 8%2(6 8!vArial9 Bold Italic9x 9z9|9~999 9 9qd   '  'J'L Ja L 'L  L$'N N\  L $  L  L $ 'A $$ $B@H  j(p  j(P L 'R L'T 'V V R 'X R j%!vArial9Regular9x#@9z9|9~999 9 9q  T X j%!vArial9Regular9x#@9z9|9~999 9 9q'Jkx L G'JjXkPdH  $' $'Z ' $' $' $' $' $'    $'dH'k8'\normal'^ normal'`'b'd'f'h 0 0'^$ dash and second digit of first pair'\. space and dash and second digit of first pair 0 ' \ '\d 0 ^ '^'bkk 0 ^ '^  # no measure'  ' \ '\d`     ' '' \ '\kkd 0 \ '\ ^ '^'`kk       j(p j!p'd`'b'`kH' Z G ^ '^j - is not a continuation line j!p \$'d ^ 'fd? ^ ` 'fdp? ^ ` 'fd@? ^ ` 'fd? ^ ` 'fd> ^ 'fk>k>k>k>k>k> Zf Zi Zj Zl Zr ZtG f 'fj Zm ZA ZBG f f $'fj bG f 'fj b ` Z G f 'fj j!p \  \ $'h d f h j(pd0= -" is a continuation line 'd, 19 d j!p j(pk<k<k<k<k<k<  ' until stop1=1k continuesw = 1  'j G j 'jj l!n$ j $$ : $ $$ 9p9rq; l!n(t l!n9v9x9z9|9~9? %9? %9 %9 %9? %9? %999 999 9*9 9 99d9qx:A2:P4$B@H 8 &9  &9$9(9*9,9.90q: 8!vArial9 Bold Italic9x 9z9|9~999 9 9q9B6:B2000$B@H 8 "9  &9$9(9*9,9.90q89A1$!v( R1C1 B@o98ĵAttribute VB_Name = "Module27" Sub TSM() ' First find the row which has"titles cval&uonP= 0 oncol#maxstop1haveyear obj;Do Until -1 ^+ Range("A" + Trim(Str(#))).S`elect@VActiveCell.V_ "=R If "Measure" Then+\nG IthodH@ƁL4 " A/10M" `!OElseFc FLColumzendaddrelss#AC E ;IfLoop'C'  f4orC,L dh"$ lettep"w3DspacD|$v+ 2nt`}Y@this~be`!af!@diffcoA ~nuesw ped~dda8ehJ^WMid(# , 1, 5)"-Tj ka!IA![K `e0k E 3`bCE)n7+ cN-xK ) ' Xu^a new K ೦_6 U 6 `lo oking`a mgW ]aa "E]eALend9!A+ =1LAI2, n2L!oI4k( 4GI5K >= 7 8>@l -0)nPuB#Q"0" OrDzp!d !`g! CK#no _4c" Not ( )1 qqerw ZR@/ C2Lp$!1`q2t>3t'  startlobX>mE@_r @Z1@!wherew@ ¦nqA!Ha(81currc 'ЄydK$ With io.Horiz`oalAlignmeBtxlC! .Verticnt$ .W@rapTexqyFaߍ .Oriyat 0<P .Ind0?q.ShrinkT8oFiBMerg¶ 1%^ (\xe{_%qfO{i !len_}  gotsupB<E> x,6Nerc( K1QO1AMak + #7+ 5./  Vno/!~thiscolVolum_Qmax]f404o|nrBsd"A" + Trimr(r))Po n!C ̴ll.ValueH cvx = RTrim(8)|before|Lentzx aftervdiff(a- -!zhold Midx, 10 "2#6"If >'"Race and ethnicity") Or Mother's rGender!Worksite onl0f"Classes at a"STATE:& 5)g-r (head of house) ThenzgA@Ke7 OAActiveCe!" + ' add 5 to 12A P sp]+ MNAFM 3, Ɂ['A 3-T 5S sPtart 0!lenWAv (HE&?^4ł`@ $19'O$%18OEls`B!T212%EoIf > 0!!WithIFChFaws(SA7:=, 1gth:=( $2 - %)).Font!Q.Nam"A`rial"RaShtylBSDiz!9.5Strikrou$ghTFa4 .SuperscPriptb.OutlineA hadowZUg xlb#N onNColorI xAutomatic$GA=oJ]Iě8TIt`"Ed.7"?: ? pdstoploc( Offset(-0).Addrxessl>,ldApuet"@t׀PtW?a2XaBZ=A[-2t t> p-$}ta@ t EtƶrCtt_@"CbQtQttt ttߦwt}.t).tttp?tIt.Sty.trFt.ttA"t#. $trZr:04t<t$1ſ?m_:: 9B߹1)j! `Z9Z TwZ 1 f= " " + cvalue ' add 11 to 21  ActiveCell.V^=^space : |Else If @diff =pThen {o+u34!Uzb2V bd5d7Kdnd IfEJAstop4|0Do Until (1)K@F currc@Offset(0, 1).Ad dressRange(E).S elect WiHth Cioϣ.HorizontalAlignment"xlCer.Vertice WrapTdexFa@.Ori@at'P?IndShrinkToFi Merg}}s a;%nE= wXTrim(c>= R@Clen Len Cgotsuper@-aQ> 0S Y65lettercbHo9 bb ) (+ b3MidD%~,Ai a"\" '-C FI1 -R`%1-gI$@Etos?…%+$sdF2De __M= _M!_M`_Me_M _M._M܆}0._M_M#FormulaR1|C1D"C harac?s(Start:=@,APKgth:=&).FfO#.Name"Arial"StylReg rA .Siz9 .5ogStrikethrough?g'.ST scripgTruob.Outlin>e#adowUurxlNon '.Color!yxAutom{cOD/($$G, %E%% )%9%Y%z%_"p-u/%+/%/%./%&/%/%/%[/%\E?zckжo Loop?0PYpc05LNot (A"<") ADN-#O%rhdohlla!"Whq`iod oW acxbzeroeѻf  azeroes = "" Lpsw0B hdashFcntiFstop5FDo Untitl ,1v(!+ 1)letterAMid(cvalue, ,If "-" Then6ObElse %>$>olla;"$Y*l .e @period\".\ !CJIj%h*Pcent*%?Kf6 bE+ l"0!1/ '% End IfW  w `"Bcelllenb( Loop 'C#zF4 Selection.NumberFor$maVhd|+ Gh$o+:+ aa\X#`n otrgots>u@d+thiscol/AveC0.ColumЮ )maxwB04`44Konro Range("A" + Tri@m(Str(b)8)).#4'o next linMWith9 G.HorizontalAlign"mxlCerVerticnnWrapT! = Fag .Oria&}.AddInd0? .ShrinkToFi*OBMergr?<[ s{!V|oue`RSbefor1LenO1 91af3?diffp(- holqr1P0od2|6l1 "Race apZethnicity") Or (Mothe`r's rG er.Worksite onlT "Class9atdq "STATE:lt5) -O (head of@ house!)`qt7X -'qA$#p' 12)O addsp+.? #3, w Q3 _A15_Qstarta@nA1 *% /r@ 19zA 18Oq~92oq2tp Px> 0d8<Isi:=C, gth:=(0 2 -0kFf``NamQ"Arial.StylrBLoaSiz89.5 tikIrouga`@ !.Sscrip_e4tb_.OutyA `1_slad2/%UgQxlNNobortx!RAutoicOp`# ElseIf diff = 8 ThenActiveCell.Va(lueZ" " + cv8' add 7 to 15%O2spaceF mBEnd If'stoploc[(.Offset(-1, 0).AddreXss)*31 Range(start/, 4).Font.BoldTruMid(, B5)"-" c-inueswÍCpedro 0mWith @Characters(Sa~:=, 1@gth:=(`2h - A)À).NamAria l"RAStylGASiz!9.R.Strikethrough xFa .Supcript bsOutline hadUnder  xlb#NonpColorI xAutomaticQ-GA=oJu ` ?/ 09 Or (befor%1)1Q `Z9 Cჿ+ 1o= <ϏfD 11! I}/=/ Ǔ/ ( 1 /D |13R 4K__ _ sX 2_ Q_ R27 ߪ1? ??! SqLoop ' until3ge of obje titlQ14HtDo U`op1_ currc0x0p C).Sel0 |wio_.HorizalAl@ignmenQkx$lCerN.Vler_n|WrapTexpu0.Orieon?Pgb mq.ShrinkToFiBMergsp#"k=J= TrimDogR5!  Qs S= gots Fߜf .F6letp cK1QO1+  ã,g4Pc "\\R gotsuper = 1  8+VcelllenR)pActiveC2.Vzv1toselect(y2sd3De/*eRange(curr1).SS3With ionB.HorizontalAlignme= xlC erVerticWrapTexNFalseOri@at'X0AddIndShri@nkToFiM(erg}sEn+ #7+ 5./  ʹ End If ' not (gotsuper @celllenthiscol = A@ctiveCP.Colum,/max8Then@ stop4C1 `Loop `onrow0+ 8Range("A" + Trim(Str())).Seleccvalue(cV ;R+)2%Offset(1, 0 ).,(Mid((, 5)!"-") Or  " A4"Dy continu|esZ XAAfpedbHNRowO"01;QbeforpxLenJe@na0fter@diff(D- B \ 7 RW͘@>"DTv@add 5 to 12N space _O/holdA/!O`P3, 6l3`5start0@72 0 /E"STATE:"3019/18Elseo!2^2%i > 0!!Withhahracas@7:=, 1gth:=( $2 - %F" .Nams"Arial"RaStylBRSiz1!9.5ikethroughYTFa4@Sscriptb.Outlinec hadU0nder xlb#NonN(orI xAutomaticO A"#$M8$p+)$rn M0M7MO-?Mu ?: 9t&c1)  d 9 oC  1O=2 11! I=/ "/ ) 1 / / q1_ 3R 4.__ _ so%g%12_ Q_ R 27 71@If+/@Cſ| u l>1=r W`sourcsiss="R CDo Uŏez @"%?ƥSM+Aion.Dte Shift:=hp0*0?=Ci6O (H"mɩADATA ISSUES"ggSOURCE/. // pɴ Len(endaddress) - 1 If cvalue = "DATA SOURCE" Then dsourceswV 4Selection.EntireRow.Insert CA%veCell.VwMeasure" *onrok.+ s2Mid, 1, l) + Trim (Str(#)) 2Range("A").k a@number""L &I)j":#UElse -zISSUESzissuz?rxlb;61D._+_+d q*ggg(e A`T0 c@len? Ac|.Yf> _ 0stop6pO lettercY Do U l (U1MT("33 P 0"\|RE\ᑖ@R^ yP ,-W ewGUtOt6XFormulaR1C1PtosH/$sd&cT,!o,4hDe- U BbHCharac-sЯart := gth:=Q.R kSRegr,S.S.5gTOyUTruJV&.OWx .SXXeYXYL w$$0,%u+)?%%%la%%.%%%tSu{+/%;|/% $%дine = xl@UnderlStyleNone .Col(orIxAutomaticfEnd WithA@stop6L1!?IfIf lettercntAcellle0n ThVLoop Q 3Els4sourcesNwT0 dh Mid(cvalue, 3, 1) meas 6 lLen!rZ112 2, 2"3 4O45er 2e >= 7J2M7, l - 5*_@ ""UCl~partAJ7 'normalG numpchaBra5 ' secondP0 A"\FjA"0" OrBB A = -2-dash a& digit of first pair D3spac~e-D4 4bn&(f+S>Not @t:@&)oJ $g+ :KmI,, 5? Dcd bi" "@4no !urѰ`, w+@ 0R13o@1`2%32eS!"0G 49 ?j`/0"m\ U2wU!UActiveC.V01 +Ž2t3t4tDi]>#6@  C addCK= iTEtu 43 A_@B{"-7is@at a `tinupon ]LrleC)N(` 3Ld<9 4 A !$0^617P 5 Mp[= `! 6?_?@4____oqU8f2iUjlrt49s!mm:zAB;R0, QM)p|0xLRrt:bpSG (l812,t Te0h?HH.I LP^߱AbqAbq3 .A EUX' PUU_΍ģ+"`19o ra  3{}1d:WonrosgQ @until 1v=0} Tg4 dela(obj1-Rhaveyea}#I s 1 Sheet.`PageSetup .PrintTitleRows = "$" + Trim(Str(de lrow1H1)2) ":< HobjH))Col(umn" En@d With ActiveSheet.Area73 .I.LeftHeader9Center Righ(Foo( ( (Margin(Application.InchesToPos(0.75 )1Top!1 Bottom CW 0. 7J0ingFalseȃGridlineCommxl NoorizontallypM 0VertvOri@B}xlLa@ndscap .DraftFirstNumbBxlAukc*OrxlDownThenOverBlackAndWhite Zoom100vAj Range("A2:P4").SelectG |  \) .HF)Aligna0@xlc(* .WrapTex( . 1.AddIlPP +f'.FC N ".Nam7"`Arial !Styl"Bold I VichSizA9l ikethrough.Super`scrip4 bqOutrau hPadowU@3r3xlNoni".@or9xf0D[B6:B2000[n ([![d[[-vU-<.M-^A1Aj.)=upGoto Reference:="0R1C1+Sub ae88e5Module27|@X0Hx(P `8h/!vK}&~1Ff9G؄taȼ촸MQa"@jeOPJS IWi(vZq@nY%=N&^*OAfR `K$dJbL\]=߄eE]ǃnh"L[ZAZwK$IDluxo;&MJS3yN?}B?@5utHOo~EN1rLARR6O3eru~mvG3:^Nh=Pd@DF8V^Goto Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`MSFormsCOfficeu Module1b _Evaluate(Macro1NRange  ThisWorkbook| Sheet1 Module2c Module3d(Macro3NCells Module4e Module5f Module6g Module7h Module8i Module9j Module10U( Macro7N SelectionZ NumberFormatR Module11V( Macro8NReplacefWhatC ReplacementLookAtOxlPart< SearchOrderxlByRows MatchCase Module12W Module13X Module14Y Module15Z Module16[ Module17\ Module18] Module19^ (Boldfncolcurrcell6currsellstopit37\currp1kg ActiveCellOffsetValValueKvlenYletter2+FontU FontStyleSize Strikethrough" Superscript SubscriptV OutlineFontOShadow UnderlinexlUnderlineStyleNoneNd ColorIndex xlAutomatic@thiscolHColumnimaxcol5 Module20z(Boldfnc Module21{(NumericQ Application* DisplayAlerts StatusBarʜcvalueonrowwoncolP'stop1/Qhaveyear$objrowvTrim@StrRTrimRowstop20Q endaddressAddressdh\letterspacaddspace&Xcnt+beforeafterXdiffc continuesw stoppedrowlclett1"lett2#lett3$lett4%lettrCstartlocӮstop31Qstop42Qcelllen\cZhdollarR2hperiods#hpercentbzeroesazeroesnpswkhdash%gcntsstop53Qholdvhold2hold3start3 len3|len2| CharactersrgStartLengthYstoplockBolday  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WIN\SYSTEM\StdOle2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{D1412978-C637-416D-B88E-9C461FFCD9CA}#2.0#0#C:\DOCUME~1\ths5\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library  lB   mModule10Z48ae88e5Module1m ThisWorkbook0>48ae88e4ThisWorkbookC - Sheet10e48ae88f0 Sheet1N 0Module20@48ae88e4 Module2yHModule30[48ae88e5"Module3R`Module40B48ae88e4(Module4<,xModule50C48ae88e4*Module5=Module60D48ae88e4,Module6ɭModule70E48ae88e4.Module7!Module80F48ae88e40Module8 Module90G48ae88e42Module9uIModule100]48ae88e54Module10BModule110^48ae88e5<Module11w Module120J48ae88e4PModule1288Module130K48ae88e4RModule13PModule140L48ae88e4TModule14ߕhModule150M48ae88e4VModule15FModule160N48ae88e4XModule16Module170O48ae88e4ZModule17Y4Module180P48ae88e4\Module18Module190Q48ae88e4^Module19K5Module200R48ae88e4Module20Q)Module210_48ae88e5Module218Module220`48ae88e5Module22(Module230U48ae88e4Module23f@Module240a48ae88e5Module24o XModule250b48ae88e5Module25w_p(Module260c48ae88e5Module26Q|Module270d48cvalue2sourceswissuesw?DeletexShiftxlUp EntireRowInsertr endaddress2wHorizontalAlignmentS@xlLeft9VerticalAlignmentʡxlCenterWrapText} Orientationw AddIndent2W ShrinkToFitA MergeCellsکBordersC"xlDiagonalDownJ@ LineStylewxlNone xlDiagonalUp xlEdgeToph xlContinuous[Weight1xlMedium xlEdgeBottomxlInsideVerticaljMxlInsideHorizontalstop64Q lettercntXRletter3+ FormulaR1C1StoselectCsdselect]celllen2IDeselectmeas@lenpart1-} numpchars second2second1part10part21part32delrow1X ActiveSheet%N PageSetupPrintTitleRows1sPrintTitleColumns PrintAreaP LeftHeader CenterHeaderD RightHeader LeftFooter CenterFooter RightFooter|S LeftMargin]InchesToPointsI RightMargin[ TopMargini BottomMarginu HeaderMargin8 FooterMargin PrintHeadings)nPrintGridlines@ PrintCommentsxlPrintNoCommentsCenterHorizontallyCenterVerticallyI xlLandscape&Draft:FirstPageNumber%OrderAxlDownThenOver BlackAndWhiteZoomdelrow2XRowsU RowHeightMergeq_ ClearContents{ Referencee Module22|(Macro2N TextToColumnso DestinationлDataType%? xlDelimited TextQualifierConsecutiveDelimiterxx SemicolontComma0KSpace Other OtherCharԕ FieldInfo Module23} Module24~ (AttractiveVgotsuper SearchFormat ReplaceFormat  Module25(Dcolsp1SColumnsp9 ColumnWidth Module26(PI^ Module27(TSMWorkbookk Worksheet _B_var_cvalue4 _B_var_onrow~; _B_var_oncol| _B_var_maxcol _B_var_stop1_B_var_haveyear _B_var_objrow _B_var_Str _B_var_TrimmT _B_var_RTrimr _B_var_stop2_B_var_endaddress _B_var_dh _B_var_letter$_B_var_letter3h/ _B_var_spac_B_var_addspace/ _B_var_cnt<<_B_var_thiscolTL _B_var_beforeX _B_var_after _B_var_diff9_B_var_continuesw_B_var_stoppedrow{ _B_var_Midp_B_var_l  _B_var_lett1 _B_var_lett2 _B_var_lett3 _B_var_lett4 _B_var_lettr0_B_var_startloc\ _B_var_stop3 _B_var_stop4_B_var_currcell7_B_var_celllen``_B_var_gotsuperq _B_var_stop6!_B_var_lettercnt[_B_var_toselect_B_var_sdselectt_B_var_Deselect _B_var_c_B_var_hdollar5_B_var_hperiod&_B_var_hpercent}_B_var_bzeroes"_B_var_azeroesr _B_var_psw| _B_var_hdash+ _B_var_cnts,  _B_var_stop5  _B_var_hold _B_var_hold2+ _B_var_hold3, _B_var_start3D _B_var_len3X _B_var_len2W_B_var_stoploc__B_var_cvalue2'_B_var_sourcesw_B_var_issueswB_B_var_endaddress2٨_B_var_celllen2R! _B_var_meas5_B_var_lenpart1T_B_var_numpchars3_B_var_second2;_B_var_second1: _B_var_part1\ _B_var_part2] _B_var_part3^_B_var_delrow1G\_B_var_delrow2H\_Defaultj _B_str_Date{B1 E3 5 = =Q SUWY[]_ 9?25<!>#>)7+B-C/D F  @@@@@dir__SRP_0:__SRP_1PROJECTwmr lB J< rstdole>stdole b%X*\G{00020430-C 0046}#2.0#0#C:\WIN\SYSTEM\StdOle2.tlb#OLE AutomatioFnZMSForms>BSFCr@ms3BD452EE1-E08F-1 01A-8-02608C4D0BB4 BDOWS\system32\FM20.DLL#Microsoft : [ Ob Library/;D~1~r~~00}#0~#h0 D1412978-C637-416D-B88E-9C461FFCD9CAH.DOCUME~1\ths5\LOCALS@Temp\VBE\DK.exd2 .E .`M ACOffi"cDOf@ijcB 02DF8D04C-5BFA_B-BHDE5@AA@420PROGRAM FILES\MICROSOFT OFFICE\MSO97Ìd# 8.0d"EBmÏoduleT1Gďou1T 2HB1 B,Bm!B+BThisWorkbookG@ThiWko@k!A 2 o-mC "ey`Sheet! See 9t 2ע N "wU"/2//2*/2//2y+/U3333M`R4կ444LT<,555M5=6կ666Tɭ777M7!8կ888T 9_9Z9_9_3u*I[BM:10GIdR092?0RBIJ11PLC`M;wJJJ?J?8JKK??Kq@KaKpK?KߕKKK?KFL!L?0L?_L`LLL?LY4LLL?M MAMGPM?M5=,K2M20K20E1ſE)QwM{M2M28ؿMp{M2M2=U|Mp{M2M2lf߿Mp{M2M2ɿ?o wMp{M2M2y1`(`,0w_!`D+Module26G4odule26 F2FnH |{TQ{7{7 {7{7#{=srU~} Year ----- -     0 \xFMF Arial Regular < D N # $ . % $Race and ethnicity  6Mother's race and ethnicity Gender Worksite only Classes at STATE: LRace and ethnicity (head of household)   Bold  $ * &HorizontalAlignment 0  6  Shift Delete DATA ISSUES DATA SOURCEEntireRow Insert number <  : X WrapText fOrientationAddIndentShrinkToFitMergeCellsBordersLineStyle WeightColorIndexFontName Bold ItalicFontStyleSizeStrikethroughSuperscriptSubscriptOutlineFont ShadowUnderline    j l r t m B  &  ItalicPageSetupPrintTitleRows "PrintTitleColumnsPrintAreaLeftHeaderCenterHeaderRightHeaderLeftFooterCenterFooterRightFooterLeftMargin LeadiRightMarginTopMarginBottomMarginHeaderMarginFooterMarginPrintHeadingsPrintGridlinesPrintComments $CenterHorizontally  CenterVertically DraftFirstPageNumber OrderBlackAndWhiteZoom Select A2 Focus Steps 1:1 2:2 1.1RowHeight 1 A1: Merge  -  A1:L1ClearContents T--- D A T A 2 0 1 0 --- In-house System K*y     rU~~~~~~~~~~~~~~~~~~~~~~~~~0 8HBG*vFq   a    a !/)Aa  1 Yqa  I a  a !Aa!A  y aa   a     8   P   h )  VBAProjectModule1 ThisWorkbookSheet1Module2Module3Module4Module5Module6Module7Module8Module9Module10Module11Module12Module13Module14Module15Module16Module17Module18Module19Module20Module21Module22Module23Module24Module25Module26Module27F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA I q0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Ai@0FC:\WIN\SYSTEM\StdOle2.tlbstdole QyP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms ))Q`~X@k׃ .C:\DOCUME~1\ths5\LOCALS~1\Temp\VBE\MSForms.exd )1pL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice  Macro1 Macro3Macro7Macro8NumericMacro2 AttractiveDcolsp1PITSMFF )   @NumberFormat i A1:INDIRECT(IV1) A1 |DestinationDataTypeTextQualifier (ConsecutiveDelimiterTabSemicolon Comma Space OtherOtherCharFieldInfoTextToColumnsVBE6.DLL Y  'F "VerticalAlignment XDATA2010 In-house processing --- Please wait  A ObjectiveFF -  A1:A3 Hisp/Latino $Hispanic or Latino R1C1 &Processing complete  e       x  a 0Fx,D@zc FLI.^\ DF Worksheet @        )Macro recorded 2/18/99 by Thomas C. Socey 14 )Macro recorded 2/19/99 by Thomas C. Socey )Macro recorded 12/18/2001 by Thomas Socey (Macro recorded 4/22/2002 by Thomas Socey .=Module1Module1ThisWorkbookThisWorkbookSheet1Sheet1Module2Module2Module3Module3Module4Module4Module5Module5Module6Module6Module7Module7Module8Module8Module9Module9Module10Module10Module11Module11Module12Module12Module13Module13Module14Module14Module15Module15Module16Module16Module17Module17Module18Module18Module19Module19Module20Module20Module21Module21Module22Module22Module23Module23Module24Module24Module25Module25Module26Module26Module27Module27ID="{EAE9E685-C70F-11D2-9E0E-10005A74EBCD}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module2 Module=Module3 Module=Module4 Module=Module5 Module=Module6 Module=Module7 Module=Module8 Module=Module9 Module=Module10 Module=Module11 Module=Module12 Module=Module13 M      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQUrWXYZ[\]^_`abcdefghijklmnopTstuvwxyz{|}~odule=Module14 Module=Module15 Module=Module16 Module=Module17 Module=Module18 Module=Module19 Module=Module20 Module=Module21 Module=Module22 Module=Module23 Module=Module24 Module=Module25 Module=Module26 Module=Module27 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8785840F8C111715171517151715" DPB="0E0C0D8813889B899B899B" GC="9597961D9AA59BA59B5A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=110, 110, 558, 448, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Module2=44, 44, 492, 382, C Module3=22, 22, 470, 360, C Module4=22, 22, 470, 360, C Module5=44, 44, 492, 382, C Module6=44, 44, 492, 382, C Module7=66, 66, 514, 404, C Module8=54, 54, 691, 511, C Module9=27, 27, 664, 484, C Module10=81, 81, 718, 538, C Module11=-38, 23, 599, 480, C Module12=135, 135, 753, 573, Module13=0, 0, 0, 0, C Module14=0, 0, 0, 0, C Module15=108, 108, 726, 546, Module16=81, 81, 718, 538, C Module17=108, 108, 726, 546, Module18=135, 135, 753, 573, C Module19=135, 135, 753, 573, C Module20=162, 162, 780, 600, C Module21=-91, 80, 527, 518, Module22=0, 0, 618, 438, C Module23=27, 27, 645, 465, Module24=-30, -7, 588, 431, Module25=132, 132, 665, 469, Module26=0, 0, 541, 345, Module27=22, 22, 559, 367, Z Oh+'0HPhx   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~Thomas C. Soceylug1Microsoft Excel@uX"@j)|Z@zY"՜.+,D՜.+,D PXl t|  NCHS/OAEHP Sheet1Sheet1!Print_Titles  Worksheets Named Ranges4 $,       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQUrWXYZ[\]^_`abcdefghijklmnopTstuvwxyz{|}~LQ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPRSTVbXYZ[\]^_`aUcdefghijklmnopqrstuvwxyz{}~RS  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*,-./0123456789:;<=>?@ABCDEGHIKLMNOPROJECT;+SummaryInformation(>FDocumentSummaryInformation8Jx