ࡱ> t$F  !"#+&'()*,B=./012<456789:;->?@ACODEGHIJKLMNPQRSTUVXjZ[\]^_`abcdefghiWklmnopqrsuvwxyz{|}~Root Entry F!{ğ,%bWorkbook+A_VBA_PROJECT_CUR")"Ÿ,!{ğ,VBA Ÿ,`5'ğ,  !"#$%&'()*,-./23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`acdefghijklmnopqrstuvwxyz{|}~3ffff̙fff3fffffff3ffffffffffff3fff3f3f3f3ff33f3ffffff3f3333f333333̙3f3333333f3333f3f3f3ff3f33f33333333f333333333f333f3̙f3f3ffffff3f3333f333f3tRNS@fbKGDH\IDATxX; <0]93DRfg@-= MOg_|;)3)Ec\J&5pr3!_CELӜYvt,Udɰ8uT@͖63p6fuwC :jOU^F1s^vEQS?g(|ɭa9 gl0!HsT(&ozrYX|JVA-5{e݆RIge KOOVmY=$ }R%-R-?Aq c`x'Yd#BsC{61g$AYaճ8ꖅŐRN]͸oHrDԯ" S!()Iké8N]62 41\g Y*i"0j/Rb[g+`Nҍ1}V^Z\@J U4$dviX0PN$aV%MYr35ei #daEXa2O?bƐSy΄hK1ĖFn.u2hVt[nV@,~RSeKRAMv,kKm~ 8 EINmXEM,b#LږWHrYTeu-%qf)8EeKf-,$aA04֮#S[=g`mEwj9N#kEQb2&zϖfMC9V6rzW XP -M.誋_9Em1H ︫Y?;\֋m@_^&>>nܻ*zG"q{3v_rw IENDB`3  @@  -Report of Registrations and Collections (RRC)Program Title:Inclusive Dates:RevActAcctFundFYUDDS County CodeAmountsExempt Non-TaxableState Only TaxableCounty State Taxable4Describe Submission: List names, check numbers, etc. Submitted By:Total of Checks:Total of Currency/Coin:Total Amount Remitted:Address:Totals:Date: Location:Program Number:~ 8o,lbnNe9CbDX%by78oywBwBT8olb,_o8oblbnNe9T0bDX%bNe I`\pMeyerb Ba= ThisWorkbook=xKL;$X@"1Arial1Arial1Arial1Arial1Arial1Arial1QTahoma1Arial1Arial1Arial1 Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_) mm/dd/yy                + ) , *    # "8@ "8 ! " "ww@ @ "@ "8ww@ @ !8ww@ @ "ww@ @ " # "8@ "8 , "@@ , " @ , "p@ , "p ,!"8@@ ,!"8` @ ,!"8@ ,!"8` , "@@ , " @  w@@ w@ w @ @@ @  @ 8 8 q@@ q@ q @ !ww@ @ !      8p ,"@@ ,"@ ," @ x@ @  x@@  x@ @ x@  x@  x@@  x@  x@@  "x@ @  "x@@  ,!"8@ @ ,!"8@ !8ww@ @ #w@@ #w@ #pw @ "@@ "p @ "8 "8w@@ "8pw @ 1!w@@ 1!w@ 1!pw @ 1"@ @ 1"@ 1"@ @ 1"p@ 1"@ ` 9RRCPicture1_Click PRINT1 PRINT2 Validate.Validaterj b4§nR-W#Wim!9n@BD{@=F&B4§nR-W#Wim!9PNG  IHDR-[]PLTEf3̙f3f3ffffff3f3333f333f3f3̙f3̙̙̙̙f̙3̙ffffff3f3333f333f3̙f3̙̙f3̙f3ff̙ffff3f33̙33f333̙f3ffffffT0bbX%bkfe8oT0bH bb 0DbDEpDC9>pXCHm00 T0bt00-m0 by7B"fwBTblobe8o @by7B"fwBT@bloTbe8o lwBTC@lo(<@ظbeX%Ce@Ce ee'T0  b\eT0(b'e582X%!ep55N\eT0T0rXdoDboLb05T0XbhbT0$bpb0T0T0H0T0T0$b0r bb0$br]_0r$b$'@b I =C'Y/  MbP?_*+%&?'?(?)?MHP LaserJet 5Si/5Si MX7@dXX7@XXEXCELPECourier New (X\\INFOSYS1\103_5SIMXHP5SI"dXX??U} } } $ =T0@b@@b@@@b@@b @E @b @ e@ @bb@E@T@@b@0@@D@@m0@@m0@@@@b@b@E@b@  <<<<<<<====$ <<<<<<<====$ <<<<<<<>>>> ;;:::::            ;";NNNNUV ;;::::: : :WXXXY$TTTTTTTTTTTTTTT GHHHHHHH J  JJJJK D IHHHHHHH B  B  B  B  B  CE$ IHHHHHHHBBBBBCF$ 78888889,-,-$%Z$ /0000001&'&'&'[$ /0000001$%$%$%\$ /0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']$/0000001$%$%$%\$/0000001&'&'&']Dl>((4J(Vf(((((((((((((((((((((( T0@!b@"@b#@$@%@&@'b@(@b)@E*@b+@,e@-@b.b@E/@T0@1@2b@30@4@D5@@6m0@7@8m0@9@:@;@<b@˾$ /0000001$%$%$%\$!/0000001&'&'&']$"/0000001$%$%$%\$#/0000001&'&'&']$$/0000001$%$%$%\$%/0000001&'&'&']$&/0000001$%$%$%\$'/0000001&'&'&']$(/0000001$%$%$%\$)/0000001&'&'&']$*/0000001$%$%$%\$+/0000001&'&'&']$,/0000001$%$%$%\$-/0000001&'&'&']$./0000001$%$%$%\$//0000001&'&'&']$0/0000001$%$%$%\$1/0000001&'&'&']$2/0000001$%$%$%\$3/0000001&'&'&']$4/0000001$%$%$%\$523333334&'&'&'^6 6566#6L6 % 5 6 L#6 L6 % 5 6 L#6 (6 % 5  6 )"$7.6MMMM*+#$8......... 9!9!RS 9!9 !!?@A :!:!OPPPPQ :!: !!?@A ;!;! ;! ; !! !; ?6 D9 D:  ; @A$<  >0((((((((((((((((((((((((JJwR  ( 3fff3f3f3f3f   S AÄExtension LogoyK yK Xhttp://www.uwex.edu/bussvc/forms/index.html, ]8b @D9~~  < XPP? G:`g<`]4@ Z *<+ < *~~  <T XPP? G`1`]4@TH ΔԇZ <<'~~  <d$ XPP? G`]4@d$ ΔԇZ <<0:~~  <$ XPP? G:` L;`]4@$ ΔԇZ <<e~~  <,% XPP? G;`1<]4@,%@ ΔԇZ <<'~~  <% XPP? G;`<`]4@% ΔԇZ <<0~~   <% XPP? G;` g<`]4 @% ΔԇZ  < <@ ~~   <&CC@? A@ b], B&8X0&9 $<PRINT 1<0@A ~~   <&CC@? A@ b], B&p&9 $<PRINT 1< 2@A ~~  <'CC@? @],B'0'9 $<PRINT 2< 2@A ~~  <<(CC@?@@],B<(0'9 $< VALIDATE< @@A MeyerbMeyerb;Meyerb;Meyerb<Meyerb<Meyerb< Meyerb>@<d  67 67        ;;   99 ::     !  67,-./"#$%01 !*+    $%      45 88  ! "# 4523&'(),- ./ 01 23 &' () *+          ! "# $% &' () *+ ,- ./ 01 23 45          ./ ! "# $% &'  &'"#$%45 67 99 ()*+,-./() *+ ,- <<99;;;;<<<<::::99<<:: ;;  0123456701 23 ), 5RRC RRC__SRP_2 __SRP_3@ThisWorkbook<ϔԇZ FϔԇZx8#ϔԇZϔԇZ4(SLSS6"N0{00020820-0000-0000-C000-000000000046}VI7$*\Rffff*143745cc22($H0h $  $ԧC $p@8MExAttribute VB_Name = "RRC" Bash0{00020820- CA$0046} |Creatabl False Pr@edeclaI"dTru "ExposeTemplateDer iv$eCust0omizdrU  41aY{crU @p< ϔԇZFϔԇZx8#ϔԇZ ϔԇZ4(SLSS6"N0{00020819-0000-0000-C000-000000000046}VI7$*\Rffff*153745cc22($H0h $re $li $p@hh8MExAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2rU  49 a c__SRP_4 + __SRP_50@frmAudit3(__SRP_d1 rU @prU  9 yQ 4Y  8I q `q  < `100X| ME=    0@ p"x    T 2 H" P Xh p x X 2  " ( 0@ H P 6h 0 "  #   * 0H x"     H " "e(PX ` h R ""g*e&@P ` btnClose_Click() Hides the user form* Executed when the Close button is pressed` B@Blh btnPrint1_ClickN Sends control to the general module for printing one copy of the spreadsheet., Executed when the Print1 button is clicked. FB@8l btnPrint3_ClickR Sends control to the general module for printing three copies of the spreadsheet., Executed when the Print3 button is clicked. FB@Jl btnSave_Click/ Prompts the user to save the Excel spreadsheet) Executed when the Save button is clicked  NB@Pl btnRetry_Click$ Validates all ValidationCells again* Executed when the Retry button is clicked` B@B TB@TlP btnApply_ClickA Applies the changes in the "Change To" dialog to the spreadsheet !^!\ !Z!\$X(\A@`l lstBox_ChangeK Updates the labels at the bottom of the form when the focused item changesB !Z!\$X!\ !b(d !Z!j !Z%h !f(d !^(\l0Attribute VB_Name = "frmAudit"  Bas|0{26FCA7EC-9868-11D4-9DA9-00105A14C9D9}J0J dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDeriv%Cus tomizD ' btnCl1_Click() Hides the user form Execd when ton is prescV PIM (Sub2 Me.4 End'nt1I Sends control to>general moduRinting one py of s@&adsheet.22cCed 3' LA3G#.PRI(NT15385thre5i@g+63)62(626Save5Promptks@aExcel HccAO, GNb+Act`aWorkbook.pRetry ValidUs all ionCell`gain3_ZHe&`He.ApplAAuchangCiCs"C To" dialogf/.*H  R! (lstBoxue)9txC ;a_B9' a' Up0l(abe/t"GbotyAǐfocd item w " tvej 0lblU.ue.Capt>ycI!blNedxȢίZّȢίZفȢίZȢίZxP zȢίZȢίZl4<DLPTX\H`d@h8lp@SPSSS>"$$`N `|J>P8@X(ZXbf^@x @ph @X @T @P @@ @< @, ^ZX`@x @h @0d @T @D @@ BTB``ac%ListH'Index, 3`a$`' "& @ 1  D  ` HY   L ! `  P A ` TY a XY y \Y  `Y  dY   h  `1  l )`q p Y1 l ?    ?  D $ 0   0   0   L  $ tehx x h%@'D%Td d ,T"$ @,)xd@6TDh<t$ $xd@hTDDgT'X%hx x ,h"$ Ta@`#<P P @/<)xTP6hX@ehx x @(XhT T 8@`#<P P @/<)xTP6hX@&:,Nhhx x x5hP$ (<xTPhX@L<lDPh8+rU |$ `$) `$i `$ `$ `$) `__SRP_c \CfrmDoneb__SRP_b__SRP_a$i `pTȢίZٖȢίZىȢίZȢίZx69zȢίZȢίZ.. 48<@DHL$SPSSS6"<,<<<< <0<4<8<<<0{26FCA7F0-9868-11D4-9DA9-00105A14C9D9}{26FCA7E8-9868-11D4-9DA9-00105A14C9D9}VI7$*\Rffff*12374958e880($X0 $@`|k0D@`|J` @$$$8L`xJB@8i  $l$$B N `|J$l$$l ` 08`XME!    0@ p"x    T 2 H" P Xh p x X 2  " ( 0@ H P 6h 0 "  # btnClose_Click() Hides the user formForms* Executed when the Close button is pressed` B@BDlh btnPrint1_ClickN Sends control to the general module for printing one copy of the spreadsheet.p E, Executed when the Print1 button is clicked. FB@8l btnPrint3_ClickR Sends control to the general module for printing three copies of the spreadsheet., Executed when the Print3 button is clicked.@ FB@Jl btnSave_Click/ Prompts the user to save the Excel spreadsheet) Executed when the Save button is clicked  NB@Pl lAttribute VB_Name = "frmDone" Basx0{26FCA7F0-9868-11D4-9DA9-00105A14C9D9}JE8J dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDeriv%Cus tomizD ' btnCl1_Click() Hides the user form Execd when ton is prescV PIM (Sub2 Me.4 End'nt1I Sends control to>general moduRinting @| py of s@&adshexet.22cCed 3'LA3G#.PRINT 15385threZe5i@g+63)62 (626Save5Prompt ks@aExcel HccAO, Nb#+Act`aWorkbook.hrU &'A'i'&4 1  8 `1  <  `  @ ! `  D )`q HY a LY y c ?   D $ 0   0 @  0   @8D<CrU X$ `$) `$i `$ `pxDGeneral __SRP_8 __SRP_9ValidateY[pzf P6 <<<LLVI7$*\Rffff*1837495a42*\R1*#ac*\R1*#159*\R1*#b8*\R1*#20b$$F8$ 8`k@F0`px @x F@Ph @hX @H @`8 J`J8 @x( @ @ @ @ @ @ME " 6g6 8"  6 g 6@g`6 PRINT4 Macro PRINTS 4 COPIES OF TER FORMreatio Keyboard Shortcut: Ctrl+PR1C6* (B@FORIGINAL ,(.~16 0!2B@4SC ACCOUNTING ,(.s6 0!2B@4D DEPT. COPY ,(.6 0!2B@4SAMPLE ,(.R1C6* (B@@l PRINT1 Macro;L PRINTS ORIGINAL ONLY Keyboard Shortcut: Ctrl+p@6 0!2B@4ORIGINAL ,(.6 0!2B@4L1 %X(\L1 %X(\l POLICY Macro Opens PIR policy webpageZ r%t.p*http://www.uwsa.edu/fadmin/fppp/fppp31.htm pB@vll6 0!2B@4ngORIGINALL1 %X(\RECEIPTL1 %X(\6 0!2B@4 ,(.ORIGINALL1 %X(\pAttribute VB_Name = "General" Sub PRINT@1() ActiveSheet.Range("L1").ValuxORIG0INALz^Window.Sel ected|s.PrintOut Copies: =1$c[End 2RECEIPTrU~}  91iyQ,6:H%:h%x"$ @xXx5Xg '%'%'%'%(h%'(%'8%x"$ DxaX H)x6X8(6:H%:h%x"$ @xXx5X$ 0 xX8(0   frU $`$`prU $$08@"HP X h  *x   P h  (  @ (@ Bh  @Xp  (  @Xp      8 H`x    ( @ Ph    0 H Xp xI!ze!a P1H">"l> L<<VI7$*\Rffff*133745cc22$*\Rffff*123745cc22(*\Rffff*123745cc22\0$*\Rffff*11374958e8$*\Rffff*12374958e8*\R1*#b8@  |`@$ phH@$ @$4($ T@`p k@@ `zx @ ` Ft@$ lx@$ h@$ P @$`4 H  `(@kK) HA$   `p+ h`z`xO` ` ,k##r) A$`z `x P z@or~  @or  @ar h@T( \@$ "L@$ PX@$ $H@$ T@$ d @$ &hD@@$ (@`@$ ,<@$ .8@$ 04@$ 20@$ 4,@$ 6( @$ 8$@@$H h    > @$ @ @$( H h      ( H h      xz~H Hh((0(`  ( ( @8  P  $@  x 8 $@ 8 &@  )@  ) +@  ( .@H  8  .`  0@p  H 3@  p 3 p 5@  8@  8 :@0  H  =@h  X 0 = 0 ?@  h B@  B D@   G@(  G@ I@P h(L@ xPLPN@ Q@ QS@ (V@H 8V`X@p H[@ p[p]@ `@ ` b@0 He@h X0e0g@ hj@ jl@ o@( o@q@P h(t@ xPtPv@ y@ y{@ (~@H 8~`@p H@ pp@ @  @0 H@h X00@ h@ `A$@X @( @@ @p @ @ @ @ @ `A$ 0`A$P`H`A$0x`A$`|`A$x`A$ t`A$@Pp8`A$p lh`A$Ph`A$d`A$``A$0@\(`A$`pXX`A$@T`A$pP`A$L`A$ 0H`A$P`DH`A$0@x`A$` <`A$8`A$@$ @ 8(z|@ht x@p Xx@@` @P |@L h@H @8 @4 @0 @, x0z|@x L@t L@Hd @`T @D @@ f`xX@pz~|@v Xl@t l@r m@p mop h8$ME   (      8 P `x    (@ X h    0H ` p     8P h  *       Fe(Jep:e( 8eBeFe >eh <eHVe BeFeJe H xHeLe   He(Lep  HeLe h pHexLe  He Leh  HeLe  ` h Hep Le  ! !He!Le`! ! !He!Le" X" `"Heh"Le" # #He#LeX# # #He#Le$ P$ X$He`$Le$ $ %He%LeP% % %He%Le% H& P&HeX&Le& & &He'LeH' ' 'He'Le' @( H(HeP(Le( ( (He(Le@) ) )He)Le) 8* @*HeH*Le* *  p  (  * * + + (+ 8+ H+ X+ h+ x+ + + + + + + + + , , (, 8,    *  (  8 P *`      "     ( " 0 8 (P  h  &x  /  /  @  /   ( 8 &H /h / 4 /     &/0/H0`/ "& )0 P X`" hpx 0    48@ (Xp x  2 & 5 5(^IH  B X,xZhZZZZ[m8ZP.x'z$name the groups of cells to validateDim as VArrayZZ!declare the cells to be validated9ReDim .cells(1 to )"For Count = 1 to ;Set .cells(Count) = new ValidationCellboard  Next Count    3   orms C  3  Fp    F3 #set cells to all appropriate valuesWith  .cells(1).setV "", , , , "", ' <0 for number, 1 for characters, 2 for other>, "" .cells(2)... .cells(3)...sEnd WithmA5Amount Dollar amount7B@C5 Fiscal Year1 digit number7B@11D5Fund3 digit number7B@\WE5Acct4 digits7B@#F5 Institution1 letter7B@aG5Division2 digit number7B@H5 Department4 digit number7B@#0#I5Act1 digit number7B@ICJ5 Class Code4 digit number 7B@ce n A6Amount Dollar amount7B@C6 Fiscal Year1 digit number7B@D6Fund3 digit number7B@E6Acct4 digits7B@F6 Institution1 letter7B@G6Division2 digit number7B@H6 Department4 digit number7B@lKI6Act1 digit number7B@J6 Class Code4 digit number 7B@`n  FC6Inclusive DatesDates7B@G5Location: StateState7B@J5Fund 3 digit Fund7B@C58Date SubmittedDate7B@K6Program NumberProgram Number7B@C60Submitted By, Street AddressStreet Address 7B@B@nZ0Check optional cellsH"CellSetEmpty A@KZCheck required cells$ ValidateArray FA@were there errors? za$if not, pop up a different user formlimZ( .twa B@ditaswap the array dimensionsA@ ~ x!Z,h x!Z(j xB@hl@  ! ! ! z 'z z@| ! z+| ! z+|.Cell incomplete, please provide necessary data z+| ! z+|a ! z 'z z@| ! z+| ! z+|!Cell data of inappropriate length z+| ! z+|hP ! z 'z z@| ! z+| ! z+|Cell data of inapproprate type z+| ! z+|hhlx Z`Zx z~K  z `K K  $|  +~lZ Z8''*check if any values are present in the set  ! !'hH@.if a value is present, are all values present?   ! ! !'hh+if a value *was not* present, send an error   z 'z z@|p %! z+| %! z+| Set of cells starting with  %! is incomplete z+|h ;if a value is present, check the entire set for good values  A@h( l  C4 Program Title Program Title7B@I5 Fiscal Year1 digit Fiscal Year7B@M5 UDDS CodeUDDS7B@O5 Revenue Code Revenue Code7B@C59 Submitted ByName7B@C61Submitted By, CityCity 7B@F61Submitted By, StateState 7B@G61Submitted By, Zip CodeZip Code 7B@ZhZ(ZHhZ( ty1.ce ) `  3    3  `   3     3     3     3  @   3  `   3     3  "   "3  $   $3  &   &3  (   (3  ,   ,3  .@   .3  0`   03  2   23  4   43  6   63  8   83  >   >3  @   @3  M11County State Taxable$ Amount7B@O11 County Code2 digit County Code7B@np M13County State Taxable$ Amount7B@O13 County Code2 digit County Code7B@n M15County State Taxable$ Amount7B@O15 County Code2 digit County Code7B@n  M17County State Taxable$ Amount7B@O17 County Code2 digit County Code7B@nx M19County State Taxable$ Amount7B@O19 County Code2 digit County Code7B@n M21County State Taxable$ Amount7B@O21 County Code2 digit County Code7B@n( M23County State Taxable$ Amount7B@O23 County Code2 digit County Code7B@n M25County State Taxable$ Amount7B@O25 County Code2 digit County Code7B@n M27County State Taxable$ Amount7B@O27 County Code2 digit County Code7B@n0 "M29County State Taxable$ Amount7B@O29 County Code2 digit County Code7B@n $M31County State Taxable$ Amount7B@O31 County Code2 digit County Code7B@n &M33County State Taxable$ Amount7B@O33 County Code2 digit County Code7B@n8 (M35County State Taxable$ Amount7B@O35 County Code2 digit County Code7B@n ,M37County State Taxable$ Amount7B@O37 County Code2 digit County Code7B@nx% .M39County State Taxable$ Amount7B@O39 County Code2 digit County Code7B@n$ 0M41County State Taxable$ Amount7B@O41 County Code2 digit County Code7B@n($ 2M43County State Taxable$ Amount7B@O43 County Code2 digit County Code7B@n# 4M45County State Taxable$ Amount7B@O45 County Code2 digit County Code7B@n" 6M47County State Taxable$ Amount7B@O47 County Code2 digit County Code7B@n0" 8M49County State Taxable$ Amount7B@O49 County Code2 digit County Code7B@n! >M51County State Taxable$ Amount7B@O51 County Code2 digit County Code7B@n @M53County State Taxable$ Amount7B@O53 County Code2 digit County Code7B@n8 A@ A@ A@ A@ A@ A@ A@ A@ A@ "A@ $A@ &A@ (A@ ,A@ .A@ 0A@ 2A@ 4A@ 6A@ 8A@ >A@ @A@H,RRAttribute VB_Name = "Validate" Option Explicit Dim frm As Objec($errorCount2IntegerZsngs()2S 02aCell.Varia"nxTypAr@ray c#U8 End / Sub ()8)Setn= NewAud{ ap= -1%'nthe groups of N to v A<> as VjGene'ForH3 d H:)ngrh'Nextc C #^To 12"Aygmy12KA"!C 2!E2}3E4߿E5E6E_~a!ct9?2Q)7_ :)ntyߥ__ZC)8__~ _P___ 9___`y___Z10oooa{S?#!q%A\y1{ToTm2 !1/TQyOTs_T?;1oTsT@1TsTqTsTqTsTqTsTp2Tr߶;;;z;2TsTew; ValidationCell  Next `CountxReDimXy22.cs(1 To 2)BForq> = 0.S.ev)+Ne2w('sJ} to all appropriate valuesw'With ' Og)..V "<>", <check em pty?>lepngth ""),\2)... 3 End> HGGepnera DC4CTrue, Fals0, "Program@ Title2OG*XI5QFiscal Ye ar1 digit IN:CJGC+3$FundD3E4BM'UDDS@d:DdL5ORevenue8%6K61}`N•@ a7QC58 DaiSubmittea'ׁ 8G 9Q  By No 9 60 , StreAddr8ess 10g 1 CitEB 1 F6 `*_Fa/ y#YG? , Zip R K~gc}By1#}M1 Taxab~$ AmA:&O Coja2t "c<293>?t: ?@/<39?;OTD 'pyC(  6 g4 E4M17? " _'NX'O _'e  5  ?QSt0@44 OG?`6   6  2A An_'( Oq@_'??L N~7  O<   s OG?? ?:8  O<    ?O ???nt|y9  O<4 "h O2OG??? v0/ ' _C yty33my4yuyjy^yRfydGy1;y1_yeoLyEAy5 )req uired)' ValidA)* *Gener al$were thQerrors?If Not 2- >= 0 ThenQ5'if not, pop up$ affnt user formDim frm2 As Object@7 = NewDo neq.Show#Ep'swapQ ;dimens0>s7S .lstBox.List() = strings* \Ind|exxkX If oSub @+(an  V)C For @Each aa" In  ".getLE A`3MIsK =+ :A1DRePre0ve(o 3x To d(f ActA7 e1,fDesc?(@"Bincom0plet@`ase provide necessary 4aߩ  lLega~l5 )Q4 isLength 4q1ga+rr;lB!5__?uAqvinDap priQl?"l End If If Not aCell.isValidData Then errorCount = + 1XReDim Preserve strings(0 To 3, C)@51,k)ygetAct:1PDesc2" 3 dof inapproprate type"%ur^Leg(zc[kzl( zd$zc[kzl$ zd zc2[kzl  zdzcy[kzl zdZtqe00C+C+++CAX 2e00C+C+++CAX 2e00C+ C+++ CAX 2e00 C+ C+++ CAX 2e00C+C+++CAX 2e00C+C+++hCAX 2e00C+C+++CAX 2e00C+C+++CAX 2e00C+C+++C AX 2e00C+C+++C AX 2e00C+C+++ C AX 2e00!C+"C+++#C AX 2 qpqe00$C+%C+++&CAX 2e00'C+(C+++)CAX 2 qlqe00$C+%C+++*CAX 2e00'C+(C++++CAX 2 qhqe00$C+%C+++,CAX 2e00'C+(C+++-CAX 2 qdqe00$C+%C+++.CAX 2e00'C+(C+++/CAX 2 q`q|e00$C+%C+++0C|AX 2e00'C+(C+++1C|AX 2 q|\qxe00$C+%C+++2CxAX 2e00'C+(C+++3CxAX 2 qxXqte00$C+%C+++4CtAX 2e00'C+(C+++5CtAX 2 qtTqpe00$C+%C+++6CpAX 2e00'C+(C+++7CpAX 2 qpPqle00$C+%C+++8ClAX 2e00'C+(C+++9ClAX 2 qlLqhe00$C+%C+++:ChAX 2e00'C+(C+++;ChAX 2 qhHqde00$C+%C+++<CdAX 2e00'C+(C+++=CdAX 2 qdDq`e00$C+%C+++>C`AX 2e00'C+(C+++?C`AX 2 q`@q\e00$C+%C+++@C\AX 2e00'C+(C+++AC\AX 2 q\?@ABDEFGHIJKLNPQRSU]WXYZ[\^_`bdefgijkmnopqrstuvwyz{}~  , @*Hx 024@*x ""  , 0"8 P X ` h*p        H B (0B 8 @HB P X`B h pxB B B B   ( 2 .H xB5  $ @ > XB`h&M  ( B 2P BhϔԇZ*=h8+3qϔԇZxzϔԇZϔԇZ#` PSS S8X>LN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}VI7*\R1*#15d$*\Rffff*133745cc22*\R1*#20b*\R1*#b8*\R0*#10h($$$ $ $b8<<@ bDD@b`HH@+EbPP@0 "  `hX+h  inai  i hi Zi~ii ( i$H i(hi,,!h lk " $)  $,!Xhh |+8$%i ,!hH |+((i ,!h( |+,+i N,!xh |+X0.i Befo,!h |+41 jKi ,!8h|+84$i ($,!h|+x <7dEi  , `hk @ ?i  ,X `+8 D Gi  , `P\k H Ui  @"4H4@b8 8@xbP: :@bx@@@HbLL@(bX X@ X88PxxX(`8hhH(P 8 h X@l @\ @X   P 8 ( @$@l   0 h  %(   h  (@  0  h  +:@ h  . Gh 1 hhh h4]@HHp`h H7`j(h(P@h (?@x @h 8x8`Ph 8G@l @\ @L @< @, @  @ @8 @ 0h U@Hl @\ 8 (X8lL4"ME^ FE(x% Object "ValidationCell" declarationsZHolds the Cell to be checkedi%dqZ Check length?e.frZCheck if empty?iZPAppropriate lengthZ8!String representation of the CellZx$Description of the value in the Celler of Z&0 for numeric, 1 for text, 2 for other;SeZ`Value contraints on the Cell ValidZfirst warning value Zsecond warning value% Declares a new ValidationCell object( ' ' ' ' $X. ' ' 'optional arguments ' 'l8A The following Property Get's all return the specified data field 'j 'jX 'j 'j 'jhx 'jP 'j88 'j ! Function cellIsEmpty ==> boolean, Checks to see if given single cell is empty' returns true if empty, false otherwise  %X$'fX Function isLength ==> boolean9 Checks to see if cell contents are of appropriate length8 returns false if cell does not meet length requirements  ' !\  !\  b'a@'h0f(! Function isValidData ==> boolean< Checks to see if cell contents are of appropriate data type, returns false if cell contains invalid dataX '  !\$  !\$ b'a'hfkAttribute VB_Name = "ValidationC@ell" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |CreatablTrue ]PredeclaIdFals #ExposeTemplat@eDeriv%CustomizD)3Opz 0li@cit ' @Object TsDim  As Range 'Hol@ds theto be checked LBoolean'C length?Eif tyInteger,AppropriKact22S@ng DrepresentB? of6desNc 'DriYD value inTypeM-'0 for numxc, 1text, *2oYr!legalues#' contraints oowerBoundDouA1first wa8rni@F/C uppS sed BDs a new & ožBSub setVf( g, BID, ɐ,ALA1 , _ 2 shtA2Ac5, @>aJ(fal low,%, high)D^= LE~`~P=YcSetk=oE%{ R=eCL=wF=cHc'oW`argPG?E`!CB= q! E@K:;' T`fol@)JPserty Get'Cll returTspepcifi5 lGJ gex()A7",c* MADd D5 M2 P0}Lz@8C dDeDE~owc qF Low!fEH`g  GK= Ec D9EJFuncqcP IsEmp)==> bjP, rPnFoJ0]f g0xn s- is_i- 5k, fA b\wiSty T (P*pSheet.b0(*)A/@ q isS|cky d0q:rJe1qau 'T 0<%TO0Hstdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation^MSForms>SFErms/4z pF79FF5125-57AD-11D2 -9DA2F105A14C9D9F3.TWD#Microsoft = ` Ob LibraryG9P0rP6,PJP\VHBE\(EX(.E alidateArray͉frm2 Show(Swap=anArray& getCheckE8 cellIsEmptyoQ getActCell4getDesci getLegalValisLengthD isValidDatai`ja oneIsEmpty oneIsFull_Class1+CellcheckL"checkElengthYactCellB7descGPdataType%? legalValueso4 lowerBoundG upperBound<newCell!e\Lc newLengthshtDescdata;legalVallowBound highBoundgetCell getDataTypeAgetLowgetHighIsEmpty  ActiveSheet%N isNumeric$*Fund[0ClassUserFormN lstBoxHeader; btnPrint1=btnSave{btnClose0btnRetry6pLabel1,Label2,Label3,Label5,btnApply'ClickChangep _B_var_True!V _B_var_False-County1*County2+County3,County4-County5.CountyG8County6/County70County81County92 County10AsCounty10}&County11~&County12&County13& County14AsCounty14&County15&County16&County17&County18&County19&County20&Dimed _B_var_Dime;County21&County22& _B_var_ReDim _B_var_ForjL _B_var_Set _B_var_PRINT3QK(PRINT2 btnPrint2>btnPrint2_Click5 _B_var_Sub_DefaultjActiveS _B_var_Activevm? G  U m~` .`M AACxOfficDxO@uficBx,,2DF8D04C-5BFA-101B-BDER5UAA@w42UPROGRAM FILES\MICROSOFT OFFICE\MSO97.D LLHZ# 8.0EZB@(RRC 2­RRCHBj1¹B,QB"B+BºThisWor@kbookN2D ThJsDWkboTkdL@frmAuditI2a]hAu`pi qoHmzc(9 %i` DoXnek2kf" Dn@  General  G ! ra` f z!*$Valpidat@&VUb i`&a`&ep3/za&Ƭ A Clelo2 +i(C lr#p)!@etHigh getCheckE cellIsEmptyisLength isValidData l4@DL Program Title C4 1 digit Fiscal Year Fiscal Year I5 3 digit Fund Fund J5 UDDS UDDS Code M5 Revenue Code O5 Program Number K7 Date G61 Date Submitted C58 Name Submitted By C59 Street Address Submitted By, Street Address C60a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\Program Files\Microsoft Office\Office\EXCEL8.OLB#Microsoft Excel 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{79FF5125-57AD-11D2-9DA2-00105A14C9D9}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{79FF5126-57AD-11D2-9DA2-00105A14C9D9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryVI7RRC 143745cc22*D 0ThisWorkbook 153745cc22*DfrmAudit 11374958e8*D?zfrmDone 12374958e8*DmzP General 1837495a42*DFzhf Validate 123745cc22*DTzP/aValidationCell 133745cc22*Dz#0hPϔԇZGI!ZGI!Z0ϔԇZϔԇZ ϔԇZ ϔԇZ= As]go_GotoToTrue Excel+ VBAWin16~Win32Mac RRC stdole`MSFormsC VBAProject OfficeuModule1b _EvaluatePicture1_Clickp ThisWorkbook|Sheet1Sheet2Sheet3 WorksheetWorkbookkPRINT4 Application* Referencee ActiveCell FormulaR1C1S ActiveWindow+SelectedSheetsPrintOut.Copies?(PRINT1 FormulaR3C1# _B_var_Copies frmAudit0btnClose_ClickHide9zbtnPrint1_Clickz Generalj7btnPrint3_ClickEPRINT3 btnSave_ClickRActiveWorkbookSavebtnRetry_ClickU(Validate3PbtnApply_Click;Range lstBoxEValueK txtBoxChange lstBox_ChangeD lblUserValueWCaptionxlblValueNeededpList* ListIndexQ frmDone;POLICYOPIR WorkbooksBItemzFollowHyperlink-frmÏ errorCountstringsKstrings2SaCell(!VArrayXcells ValidationCell;Count0vFund1Fund2setV (CellSetEmpty  (V City Submitted By, City C61 State Submitted By, State F61 Zip Code Submitted By, Zip Code $ Amount County State Taxable M11 2 digit County Code County Code O11 M13 O13 M15 O15 M17 O17 M19 O19 M21 O21 M23 O23 M25 O25 M27 O27 M29 O29 M31 O31 M33 O33 M35 O35 M37 O37 M39 O39 M41 O41 M43 O43 M45 O45 M47 O47 M49 O49 M51 O51 M53 O53ȢίZȢίZȢίZȢίZȢίZȢίZ  ' y H XShowlstBoxList ListIndex getCheckE cellIsEmpty getActCellgetDesc .Cell incomplete, please provide necessary data getLegalValisLength !Cell data of inappropriate length isValidData Cell data of inapproprate type Set of cells starting with  is incomplete VBA332.DLL i-. X i-1 p   (($`  K6!__SRP_1(cfrmAudit('@7ğ, Hğ,f2o 4rU~~~~~~~~~~~i     a1 a9  I ( 8 Y H X hanArray q x  newCelleL newLengthshtDescdatalegalVK)^rU~~~~~~~~~~~~~~~ ~~~~~~~~~~ ~~~ yȢίZ  a ya ya  ia a( ia Y)ya .1 1a i Aay )IQYaiIARRC ThisWorkbookfrmAuditfrmDoneGeneralValidateValidationCell VBAProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA  I(F 3C:\Program Files\Microsoft Office\Office\EXCEL8.OLBExcel I80F FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole  QH%QyWZC:\WINDOWS\SYSTEM\MSForms.TWDMSForms 1X.E .`M &QyWZC:\WINDOWS\TEMP\VBE\MSForms.EXD 1hL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice )xFϔԇZ btnPrint1ϔԇZDF Worksheet @F ϔԇZFϔԇZDFWorkbookȢίZ"ϔԇZϔԇZΔԇZ!ϔԇZ"ҋB `lstBox!-6S` 1ҋB ` txtBoxChange"-?@ lblUserValue lstBoxHeader{lFWJObtnSavebtnClosebtnRetryLabel1Label2lblValueNeededLabel3Label5btnApplyȏ[qJ eUserFormȢίZ F3Dynamic Q y btnClose_ClickbtnPrint1_ClickbtnPrint3_Click btnSave_ClickbtnRetry_ClickbtnApply_Click lstBox_Change xPRINT1POLICY PRINT2   ValidateArraySwap CellSetEmpty (($G GeȢίZȢίZȢίZȢίZ btnPrint2ȢίZ I y btnPrint2_Click |FFQҋB `#ҋB `Yl|  ORIGINAL L1RangeValueF RECEIPTF *http://www.uwsa.edu/fadmin/fppp/fppp31.htmFollowHyperlink+=h8+3qϔԇZ*=h8+3qϔԇZ!=h8+3qClassPgv3+3o VBInternal I qsetVgetCellFF getActCellgetDesc getLegalVal getDataTypegetLowgallowBound highBound a ( ($ :}4i(R KQDBTahoma, 2DlstBoxHeader$(Errors and Warnings: 5Tahoma@(Print 1{uTahoma@(Save{uTahoma@(Close@{uTahoma@(Retry@{uTahoma@$(Value Constraints:s: 5Tahoma@ {uTahoma@( Your value:5Tahoma@ {uTahoma@( Change to::5Tahoma@D(3When editing values, be sure the new value is LEGAL+5Tahoma@H,{5Tahoma@(Apply@{uTahoma@(Print 2{uTahoma@`+5Tahoma@ p( 8btnPrint1derz-O$ 4 btnSavez-$ 8 btnClosez-]$ 8btnRetryz- (2DLabel1@#020lblValueNeeded5%(2<Label2@#, 20lblUserValue5%(2<Label3@#(2dLabel5@!( 4 txtBoxChange5%$8 btnApplyz-5%( 8btnPrint2ngez-$h lstBox@O Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAuCompObj!MaVBFrameOfrmDone$ Hğ,Qğ,fTWdit Caption = "Audit" ClientHeight = 5865 ClientLeft = 45 ClientTop = 330 ClientWidth = 7650 StartUpPosition = 1 'CenterOwner TypeInfoVer = 58 End $   }t R KQDBTahoma(2hLabel1@H(7Your spreadsheet passed the preliminary software audit.5Tahoma@$(Would you lio#%VCompObj&aaVBFramecPROJECTwmhke to:5Tahoma@(Print 1{uTahoma@(Close@{uTahoma@(Save{uTahoma@(Print 2{uTahoma@(2DLabel2@O( 8btnPrint1$8btnClose$4btnSave( 8btnPrint2  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDone Caption = "Audit" ClientHeight = 1395 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End ThisWorkbookThisWorkbookRRCRRCfrmAuditfrmAuditfrmDonefrmDoneGeneralGeneralValidateValidateValidationCellValidationCellID="{49B847ED-9021-11D2-9DA2-00105A14C9D9}" Document=ThisWorkbook/&H00000000 Document=RRC/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmAudit BaseClass=frmDone Module=General Module=Validate Class=ValidationCell HelpFile="PROJECTlSummaryInformation(*xDocumentSummaryInformation8|\CompObjf" Name="VBAProject" HelpContextID="0" CMG="0301B3B2B2B6B2B6B2B6B2B6" DPB="0604B6B7BAB9BCBABCBABC" GC="1210A2CCAFCDAFCD50" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C RRC=0, 0, 0, 0, C frmAudit=0, 0, 677, 272, , 22, 22, 699, 294, frmDone=22, 22, 699, 294, , 44, 44, 721, 316, General=66, 66, 743, 338, Validate=0, 0, 677, 272, ValidationCell=22, 22, 699, 294, Oh+'0@HXh MeyerbMeyerbMicrosoft Excel@:@@'"՜.+,D՜.+, PXp x  UW-Extensionu1 RRC  WorksheetsL(RZ _PID_GUID _PID_HLINKSAN{84930FA0-8E94-11D2-9DA2-00105A14C9D9}A{,,http://www.uwex.edu/bussvc/forms/index.html FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q