ࡱ> b`aR KQltBM6(uTahoma  "#$%&'()*+,-./01235679;<=>?@ABCDEFGHIJKLNOPQSUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~ \pJohn Walkenbach Ba= ThisWorkbook=.<X@"1hArial1hArial1hArial1hArial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  ` SortSheet UndoSheet8ccZ    dMbP?_*+%"??UColumn B>@7 Sheet2    dMbP?_*+%"??U>@7 Sheet1 Lzȩ#<"N:AN F̟%Q@X&x̟%Q@X&"N:ANME(SLSS6"Sheet1!__SRP_8 4__SRP_98BThisWorkbook :N0{00020820-0000-0000-C000-000000000046}(%H(p % %pxH@HH8)&C$*\Rffff*0a43269a164 xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 rU Q)y))4))`rU @nTȩ#<^.G?az2FfpTH^&HxfpTH^&H^.G?az2ME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%Hh % %8p@@TT)&C$*\Rffff*0`432699f74 xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 rU )I))#4__SRP_6 M0__SRP_7RBSheet2TYModule1f `rU @nLzSȩ2V#]R˂H@(wKz F C;JP]]jxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H(p % %pxH@HH8)&CxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ȩ͇xME (<<"<&<x(%( 8@!%($X%((x%h*Hh,H . :0  0 0 '  (&H ", ;8CancelButtonq$#Frame1on, PUPHelpButtonq(2@Label2on.( 8RangeRefEdit0V#FrameSelectRandom,X#FrameInsertSeqP% S Microsoft Forms 2.0 FormEmbedded Object9qpx"  "    08,@p "x>  x] ]  ] @] `]$Power Utility Pak]$Range Randomize UtilitiesA@0 2G|j 2$4 WorksheetG|j 6B@8o0< >(@ B@B `p! B@B $ (B@D $B@H|<Cannot undo that operation H ,A@Fdo0JxA1pup6.xla$L%N%&UtilityG|jJ0 B@BoFAttribute VB_Name = "Module1" Option Explicit Pub, OriginalBook As W0orkb@ShheetBsDRpange"Undo Const PUPNAME;SngPower Utility Pak5AP54domizeies Su b ()  CheckAddInIf @Active|Is NothiMTheit &Type() <> "" UserForm1.Show End+VfSequenceXOBrror GoTo EHandler)$Ap{a~.ScreenUpdWFalse I./at@Fu.CopyƑW .Selec@ZExO-: MsgBox "Cannot u@ that oper3", v0bInf@M, DJOPriv@2S wSOCloseMD=@~Es("pup6.xla")hs(1).4("A1")AĨw6This.+ 0* pHd RngRando mize<@ =UserForm1!O_VBA_PROJECTG"dir__SRP_0 Up * , obRearrange$R T(V * ,obInsertSequence$R X(V * ,obSelectRandom$R Z(V * , IncrementSpin$R \(V * , BeginSpin$R ^(V * ,NumtoSelectSpin$R'` kx b$4RangeG b!f d(djo@ j(l3  n9l9)9pq (o ( n(l j(lo  n(l j9l9)9pqh (oP`]] Bad range ref? d!d$&.x |The range address is invalid. ~ ,A@F dB@|k x!B@B xB@H Warn if multiple selection x!! 6You can't use a multiple selection for this operation. ~ ,A@F dB@|k Warn if selection too big x! x!#,000$? cells are selected. This operation is limited to 65,536 cells. H ,A@F|k Which option?  ZKTF xA- XKTF xAm TKTF xANn Done. Save the settings * ,obSelectRandom Z!VA@ * ,obInsertSequence X!VA@Aw$ * , obRearrange T!VA@0 * , IncrementSpin \!VA@ * , BeginSpin ^!VA@[U * ,NumtoSelectSpin `!VA@vs,oX]@]`]]]]]] Warn if bad valueeAj !d$v`$'Invalid 'No. of cells to select' value. ~ ,A@FI!^ 95d9L[_C@qh|`kX !d'3k !'!l Warn if negative+2r 2p'Invalid 'No. of cells to select' value. ~ ,A@FAmE 95d9DDGC@q|k Too many?xx2   wBKThe number of random values to select exceeds the number of selected cells. H ,A@FQ 95d9.yTC@q|k SortSheet %N.H !B@LA1 ,&%+  =r[-1]c[0]+17 77&(c=RAND()7 77&(AF$7 77&B@D 7 77&B@%B17&7 77&B@qh  uz) lRT  % %.s!ud   % %$.^yk v.s B@Hw8o A@rHwTo]]]]]M]  UndoSheet %N.G SortSheet %N.2 !!' Sheet protected?my? !!. !!  Sheet is protected. H ,A@F|k Formulas ?[- $T]hThe selected range contains one or more formulas. Rearranging these cells may make the formulas invalid. ~ ,A@F9a~|k Save For undoing9Ga .$CYa !. . !!.$v*! Copy original data for undoing >(@}r$ UndoSheet %N., !B@K !f %& B@D]l !f %&.(& Delete any objects that were copied&5 !B@%' >(@zBk !B@d$ Copy the range to a single columnL[l  !Inp  % B@Dh5   'a 7(&  'p Enter RAND formulaT] =RAND()7 77&(eA?qx Sort by the random columnn2O B17&7 77&B@q7 Put the single column back to the original worksheet' '  ! t Y;ȩ:xMEPS<S<S<S< <&<"<<0{2561B17C-16E1-4426-95B5-2B60D686236B}{41A6C339-8232-4565-A69A-3A593DD8A0D7}0(%X0 % P h r  t` v/ x%`z D)8n(% X% xj%`h`P``ef?`& % @XO)x!%  % %`(```B@ 8% Z)re s% imit% ,A@%` ```` xe. S%`obSe`,X )!V%i  tSpi P ,%    X    X   `0 " 6 0X42,((*P, "   "  0 @P "X `px  "   0 @PX`h p   $H (0  "8`lx  0H`  h02.( $H*p "   :(h p x       :8 @ H X`hp  x ^       ( 0 8 @ ` p  6 2 ( .( 8X     "   ,   (  8  H X " ` h p x          @ ` h  p  z    (  H X h  (      , P ` h x  *   @2H  "8  >8@ H` ,h    @ 0 " 8@HPX`hx  @ 0.Hx     $0( 0 8 HPX`  h x     (  HXx ,   0 @X<`2(.80h >p   ,( 8  H  X>h B    (08 "@HX "`h(x       "( "08(H p      " "( @P X h x   "     "   ( 8H "P Xh "p&x x` ( *SettingsRememberSettings$R   7 77&B@Dq`  '   ' { >(@ &Undo Random Cell RearrangeUndoRandomSequence >B@ A@ro@]]]]]]0H.]`] Sheet protected? !! !!  Sheet is protected. H ,A@F| k  Warn if bad start value !d$is fInvalid 'begin with' value. ~ ,A@F 95d9 C@qX |P kH  Warn if bad increment value !d$ Invalid 'increment by' value. ~ ,A@F 95d9C@q | k !d' !d' UndoSheet %N. SortSheet %N. Save For undoing .$ !.  !!. ! Copy original data for undoing >(@ UndoSheet %N. !B@ !f %& B@D !f %&.(& Delete any objects that were copied !B@ !B@ >(@ !' !!' A1 ,&  =r[-1]c[0]+ 7 77&(X =RAND()7 77&(7 77&B@D 7 77&B@B17&7 77&B@q 7 Put the single column back to the original worksheet' '  !   7 77&B@Dq  '   '  >(@ A@r&Undo Random Fill SequenceUndoRandomSequence >B@oP Check for formulas]8  %. ( 'd'kiX \!V (do !V$ !V \! !V \! !V'\dH \ \!'\d  \!'\kkko ^!V (do !V$ !V ^! !V ^! !V'^dx ^  ^!'^dP ^!'^k8k0k(o X `!V (do !V$ !V `! !V `! !V'` d `  ^!'`d `!'`khk`kXoP (t ^(x (  \( o ( ^( ( \( oX A@ropup6.xla!ShowPUPHelp >B@oXPxAttribute VB_Name = "UserForm1" " Bas0{2561B17C-16E1-4426-95B5-2B60D686236B}{41A6C339-8232-4565-A69A-3A593DD8A0D7} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit P"& Sub _Initialize() Me.Widt"hX160 If GetSetting(PUPN@AME, "s"Rememb$er 1)" Then#/obRearrange`.ValuAPEH Q * -1+In@@(quenc' @aSelectRandomf- !IncrNntSpind IBBegin Numto0Aqh HEnd IBfƑTypeA(D"@+ge"BE bRefEdit.Text.Addresxs  `Y# [oRb ;_C`k%\Fr @ ":isi yJWi`b c y.VFzLDef152Top41C! n245mfv!b F,M+&3'+?!b(+++OK@ButtonkDim"R As#S aTotalCellsLon"gc 'Bad œ ref?#O@rror Resu@N[#h =C ("IaErr <> 0̫MsgBox, "af is invalid.svbCr@cal, D0 Focu nAaGoTo dExit frG%Rh.Prnt.Activj"S#Warn if multipxsrZ@ES `Azs.Count > 1rYou canP't uan$ fthoperaqvkC? u{ too bi&j65536OA8at(20|#,000") & X" cr- Sed.Y%limitto 65N,rInm?O&"Dhipch o3 CAkW"obP]:pll ):wKbCCSeO`DvZhuffle!"VR+Done. Save th~e$8a@9 )>kDK+/   ,  ` "S ?/>"YB "OߏubC R )Worky&ge&g*h SheetsSortRowsToCopy7k@ ajEmptyi/T NbtjQӑ2PNNot IsѼc(p5Q)Ob]Io 'No.8 ofMPKM' \|\|  1. Star1qaLengՀ( tvA#bb = R= 6'rneg\v0!umV<=@' value.", vbCritical, APPNAME  With NumtoSelectTexttH.0Start = 04LengI= (.|)HtFocus0End xxi`t SubI"f 'Too many?IfT > Rows Then"]MsgBox " number of r andoms to s| exceedheed cellsInform`ationt & + Se@\orPtShe@=NisWorkbook.s("S&"Du.CCClearC\Range("A1")1| !.C (2, 1x), Du).F\ulaR1C1@"=r[-1]c[0]+1B"1, 22)RAND()Y&ACopy  PasteSpecial (xlVAsЋG3V Key1:= "B0C `) ia3 To ,Ei2@l#3 Is Nothi|ngllaBIh= Ib9>iB:a Elses Unm(, ) %N@ i Unloa8d MA"  Shuffl e`( As dDim Ul!s!n f#g!`ToLLonggaEmpLtyFre, LfCol9TF?#hG.C8ound҃)prot4edg'.Parent.PcContÁName &Lf "#is `s 'HasE'L)oif@ge c`ains one or more kPTs. R[Á1=thes!]pvy0ke @ inid E|Saver ` u`1'OriginalIv/s"Bl!"S%6o4 datak 0Appl.ScreenUp= FaFL4u"4.Usedb.uw* ".AddresEdϵRrkxE!D]te @ obj6at weP$copiedDrawO. cJ= T'dcHq+0a s l0lumġ' Each PIn=ydoQHpy$l afS k+ Nq]= -AsEM|r !:O ^Ypp%ᒦ""=j1p!q byBPcB e y Bύ#_ Put  back"}>w@(y@s)@s=C/$e4#&($OgCQkFr$L)'`a+b +5A B_'ws!sSFr1L$SKEach Col In ((qo#S3#Fr#L)*@Ip_v2 |+ a B Nq _7MTrUnloMDNOnQ@ "&b@1dom Fill Sequentce"V   Priva0GFunc1V geHas3@s(r AsS)]QPChe`1[06Dim xv On ErrPhResuq[x@ r.4, =xlqType[83$Vx }h'M bEFca W GoTou@*Spin_ChQ(  H.;!fFBMC_e <=+ .inv!) !K > 0_  ?wQ (.MiBpɱe$q"! ;p "<"!t!A!!D H %  O*A1?+OginC!1A atoBAPL?AALO G coSelectText.Value) Then  If NuDmt <= `Spin.Max And Begin >Tin woiP 7PExlse B E> 0ko]f,Ǐ5! b.MiEIf.Sub Private  OptionRandomSequence_Cl`ick()(E@nabledTruoIncremenZHM-Shuffl`+Fau++' ,T,CaUlB uttonWUnload MSPUPHelp(Appjap.Run "pup6.xla!Show", 190  nsertRandomSequence ShuffleCellsD SaveSetting WorkRange@5 UndoSheetE SortSheet\, RowsToCopy NumRows NextEmptyRowYi` NumToSelect\ SelectRange3 IsNumeric$*NumtoSelectTextJSelStartZ SelLengthCells FormulaR1C1S PasteSpecialK xlPasteValues"SortKey1OUnionFrE]Lr#^ColHRowsUProtectContentsvbCrLfRangeHasFormulas; UsedRangeȉClearDrawingObjectsߺDeletexColumnsp9FormulaqYOnUndolStartNumm IncrementNumi BeginText_U IncrementTextTrixo SpecialCellsxlCellTypeFormulas#IncrementSpin_ChangeIncrementText_ChangeߩMaxȲMinBeginSpin_ChangeBeginText_ChangegNumtoSelectSpin_ChangeߴNumtoSelectText_ChangeOptionRandomSequence_ClickEnabled۪OptionShuffle_ClickCancelButton_ClickHelpButton_ClickfRun_Sheet2UserFormNOKButton| CancelButtonLabel2,Frame1 HelpButton LabelIncBy[ LabelNumberLabel3, InitializeNClickChange_Defaultj PUPHelpButtonFzPUPHelpButton_ClickvNumber- _B_var_Format sortseheet_B_var_sortseheet9clearall 7 Z0-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation  )&Cȩ Sheet10a43269a16 Sheet1ThisWorkbook0`432699f7ThisWorkbook Shee v )&DC<Vrstdole>stdole f%\*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Autom`ation^MSFor ms>SFErms$3DD452EE1-E08F-101A-8-02608C4D0BB4 DNT\System32\FM20.DLL#Microsoft 9 \ Object Library/;C1s00}#:0#j0AB2E8696D-4847FE-B221-040B87292B4F6DOCUME~1\jwalk\L OCALSTemp\VBE\DSp.exd`;!.E .`M ACOfficDOA@ficB 02DF8D04C-5BFAgB-BDE5@IAA@420PROGRAM FILES\MICROSOFT OFFICE\`MSO97 m# 8.0Lm"ø|N C2.tlbRBȩSheet1GSh(e o12*H1bzX",b T""+ThisWorkb@ookG TikWBlkbqok !2oplb *2m 2i 2m 2e 2Vk odule.ou.2ď  -/͇!b.%/ User!@.er&a2/_-:(@ bxz)N$ZH;rU~~~~~~~~~~~~g  ay  *\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:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B2E8696D-4847-48FE-B221-040B87292B4F}#2.0#0#C:\DOCUME~1\jwalk\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*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation  )&Cȩ Sheet10a43269a16 Sheet1ThisWorkbook0`432699f7ThisWorkbook Sheet2684316d877 Sheet22V`Module10k43269a29Module1͇0UserForm10l43269a297UserForm1:H_;xH`0SwtO{NN[ZV(RAJ>#/PHK&RR޹*DF{xz)N$ZH;Excel+VBAWin16~Win32MacVBA6# RngRandomizeJstdole`MSFormsCOfficeuSheet1 _Evaluate ThisWorkbook|Module1b OriginalBook"Workbookk OriginalSheet6 Worksheet OriginalRangeFRange  UndoRangeHPUPNAMEӆAPPNAMEKpRangeRandomizez CheckAddIn ActiveSheet%NTypeName UserForm1)ShowUndoRandomSequenceu ErrorHandlerO Application*ScreenUpdating! Activate|CopyƿMsgBoxR vbInformationnCloseMe WorkbooksBSheets UserForm_Initialize5c GetSetting obRearrangeValueKobInsertSequenceWobSelectRandom5 IncrementSpinX BeginSpincNumtoSelectSpin SelectionZ RangeRefEdit AddressobInsertSequence_ClickFrameSelectRandomόVisibleFrameInsertSeq+Top5obRearrange_ClickobSelectRandom_ClickOKButton_Clickf UserRange} TotalCellsDErro vbCritical+}SetFocusParentAreasKCount0vSelectRandomCellsrIF lYou can't use a multiple selection for this operation. #,000! ~ cells are selected. This operation is limited to 65,536 cells. q  qS  q  q  SortSheetProtectContentsName  &Sheet is protected.6 The selected range contains one or more formulas. Rearranging these cells may make the formulas invalid. ParentF Delete =RAND() B1'3ŀB_Kx'JMç# 6&Undo Random Cell Rearrange $UndoRandomSequence#=h8+3qG?,2qL$%$ ҋB ` q1 0 NInvalid 'No. of cells to select' value.( The number of random values to select exceeds the number of selected cells.>)FDE8 %D\G< BI5mEaQk*}J~B񪬩m (  ^.G?az2fpTH^&H"N:AN F̟%Q@X&DF Worksheet>4A? Ij: nEPGE 4e)[;Fm]Zg$9@D(飭uLd 4ȏ[qJ eUserFormWP:Ǿ`L i! F3Dynamic  {lFWJOOKButton!-6S` i  CancelButton"-?@Label2?F`__SRP_1UserForm1PPfo9  !  1 ( q 8 H Q X h Q x !Y WorkRanger ! (9  !)>NumtoSelectText(H  \@}.R KQDBTahoma8KEFҋB `EK*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~ IuJxGNLԪl    )!  Sheet1 ThisWorkbookSheet2Module1 UserForm1 RngRandomizeF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i @0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole yP.E .`M C:\WINNT\System32\FM20.DLLMSForms aa`miGHH! )+O /C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd 9aapL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice !I "Power Utility Pak 2Range Randomize UtilitiesRangeRandomizeUndoRandomSequence CheckAddIn  FF WorksheetP4A? Ij: nEPGE 4e)[;Fm]Zg$9@D(飭uLd 4ȏ[qJ eUserFormWP:Ǿ`L i! F3Dynamic  {lFWJOOKButton!-6S` i  CancelButton"-?@Label2?F`Frame1 LabelIncBy LabelNumberLabel3RҋB ` obRearrangeҋB ` BeginText IncrementTextobInsertSequenceoym'v BeginSpin PUPHelpButton IncrementSpin RangeRefEditf9vmF5?@BCDFTHIJKLMNAPQR_cVWXYZ[\Oe]^mdlgijnkoRoot Entry FPBWorkbook' _VBA_PROJECT_CUR"%"`YPVBA`YPFt(74OKButtonn q(OK"u[Tahoma)(Cancel)u[Tahoma) n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q\F-I0!Insert a sequence of integers in random order5TahomaXF,eT0!Rearrange the selected cells in random order5TahomaDFSF0!Select cell(s) at random5Tahoma<H  U (}: OperationiR KQDBTahoma,|obInsertSequence( xobRearrangeu,PdobSelectRandomce SCompObj!aVBFrameSPROJECTwm#PROJECT$VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Range Randomize Utilities" ClientHeight = 3315 ClientLeft = 45 ClientTop = 330 ClientWidth = 6795 HelpContextID = 10160 StartUpPosition = 1 'CenterOwner TypeInfoVer = 161 End Sheet1Sheet1ThisWorkbookThisWorkbookSheet2Sheet2Module1Module1UserForm1UserForm1EntryID="{00000000-0000-0000-0000-000000000000}" Document=Sheet1/&H00000000 Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Document=Sheet2/&H00000000 Module=Module1 BaseClass=UserForm1 HelpFile="" Name="RngRandomize" HelpContextID="0" VersionCompatible32="393222000" CMG="999B3543394339473D473D" DPB="3537997FA906C606C6F93A07C61B2252B6BC40916AF504D64E5606BE9AE3D996F328F282F97B" GC="D1D37D7E7E7E7E7E" [Ho ,rRange:X5[TahomaH :,5[Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@H,,1!uTahoma,(NNo. of cells to select:m 5TahomaL,$H S} ,st Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet1=0, 0, 0, 0, C ThisWorkbook=66, 66, 760, 497, Z Sheet2=0, 0, 0, 0, C Module1=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 88, 116, 725, 488, C EFOh+'0x hp 4@ X dpPower Utility Pak v6S<NumtoSelectTextea, Q2LLabelNumberT,RNumtoSelectSpine  S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@H,,1!uTahomaL,L,@H,,1!uTahoma$(bBeginning with:e5Tahoma ( IIncrement:wi5Tahoma$H \}U ( <BeginTextaa( BeginSpina, IncrementSpin, <IncrementTexta(\2DLabel3, 2@LabelIncByex SPROJECTlkSummaryInformation(&DocumentSummaryInformation88CompObj m PUP v6 Support FileJ-Walk & Associates Version 6.181999-2005 J-Walk & Associates. All Rights Reserved.John Walkenbach6.0Microsoft Excel@C@r՜.+,0 X`|  Excel Add-In ToolsJWalk & Associates  SortSheet UndoSheet  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q