ࡱ> g rows (don't delete them)L5Tahoma@aR KQltBM6(  !"#$%&'()*,-./0123456789:;<=>?@ABCDEFGIJKLMOPQRSTUVWXYZ[\]^_`abcdefgijknopqrstuvwxyz{|}~  I\pJohn Walkenbach Ba= ThisWorkbook=xxL;"<X@"1Arial1Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  ` Sheet1k1> (y$b b.@@G? _br0 K bJb,KFD#e00b@b _br0 Kb Ir0ZJbbZJ0$btJS0bt00dbD^n00b 00Ԣ0bbb0btJbtb0bI bPercent0]< ZS0pbEtbΝ0\pb0ZT0_T0=l0Te0T0T|?b 0|)"b b@NJT0e0YT0L0YT0LNJT0bbk0 $@bȆ0bϘT$d=s00{=s0:0pbEX%P[,EX%w0Epbb%(b0 b  I =  dMbP?_*+%""b??NJU>@ Sheet1 rU q ! I q i ) !9  ! I q D a ThisWorkbookq__SRP_3 +__SRP_2HYSheet1NP2 This code handles non-English versions of Excel/ in which the Tools menu has a different name, 7u  (%%!8'9K'& l...'(A@l6 Delete the current menu if it exists (just in case)x     (%%%%B@    (%%%B@ Create the new menu itemhJ    (%%!!.a    (%%%!!.hp. Specify the Caption and OnAction properties  98 99:This is the image displayed next to the the menu item text9+ Add a separator bar before the menu itemnu% If an error occured, tell the userF z*An error occurred - CreateMenu subroutine. jA@hhl@ This sub is executed when the workbook (or add-in) is closed." It simply removes the menu itemWorksheet Menu Bar' '& l...'2 This code handles non-English versions of Excel 7u  (%%!8'D     (%%%%B@    (%%%B@lxlhl`A@lHA@StartConditionalRowDelete'Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2Option /licit Pub XLCommandBar As Sng!Menu ItemNew*[_ Sub _Open()X e End BeforeCl(CancelEBoolean'Delet  Dim /MacroI8)7PButton Vwu CCCcurB>Cif it exists (j@c 'c|$DObrror Resu Nexc$ar@ C$'+!!(!).&  GoTo< 0SGC_&newcGiyIf 9 The@[#}aSX@.AddE V7T1[s(If#JSpecify"$\ s OnAcQ prop@ertiescWithaa"#edoH4 =Faceb0 'is"imageU}sy@nW tob!`t[BeginGroup B1separatbbb" #!x m(Han eloc sed, tella userErr <> 0 MMsgBox "FA - Ƿ sub`tine.", vbInm2N qB ` #8.`!  execdVen" w (add-in)cahd.Tt sizy remov] SyObrkNb[6"RP"UqU3 b OfOfEfG>A68/cQ/clWWn?jVH8WicqqE_p& LA?jFA?jx [FG@G#A?jA?j DD @[LSS(L>"LL LLLL8)plX6( T< *# *@/ CxK@@<@8FH%X4F\%lp! p dl HX  , (  ) plX6(u@@8FH%X4F\%lp! p dl HX  , ( ) plX5(K<0?s8FH%X4F\%lp! p dl HX  , W( Wt) plX6(<@8FH%X4F\%lp! p dl HX  , ( W Wt) plX6( lt@  lx  \  | $ pp lph+'''@:\N(( 6(p0htx4 plX(0   4 8 < @DDrU P$I`(` #$`$ `4@h48@p8<@x<@@@p<A?j FA?jxB8FGBG#A?jA?j^4(SLSS6"N0{00020820-0000-0000-C000-000000000046}둊5$*\Rffff*6b358a8612(,@$` $I! $  $[l $  $P $ $ $ $0J $H $xl*K $X P@0MExAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd__SRP_8h__SRP_9 l@Module1m__SRP_6rU 4)Q{crU @pxFGLG 8> L"LL<<<둊5$*\Rffff*26358a9267*\G{0A484D7C-EC25-11D0-BAB3-A49207C10000}#1.0#0#..\..\MSApps\MSForms\RefEdit.EXD#Ref Edit Control*#0*\G{0A484D7C-EC25-11D0-BAB3-A49207C10000}#1.0#0#..\..\MSApps\MSForms\RefEdit.EXD#Ref Edit Control*#2$*\Rffff*27358a9267*\R1*#15c*\R1*#a7*\R1*#208*\R0*#11*\R0*#1*\R0*#b*\R1*#b8*\R1*#20b $0$0p0$$`z`bt `k$lHJWalk Conditional Row Deletehjlh(0@Xp @` @\ @X @H x@(8 @@( @ @p @ @ (x008ME ( "  !~G ]P*3 "ax xlpZZ b  b!F  'g b Fug !" Z$JWalk Conditional Row Delete0uhThe Select by Value utility lets you select cells based on their value. Start by selecting the range of cells you want to search. j lA@huh B@"3This utility does not work on protected worksheets.  &Unprotect the worksheet and try again. j lA@huhThe worksheet is empty. j lA@h\G{ !2 (!%1 0%!!< !(HAttribute VB_Name = "Module1" Option Ex@plicit@Compare TDex(Pub< Const APPNAME As$ SngJWHalk@dial Row Deletef Sub.artD#"!() Dim VisZIntegerItemObjec/If ActiveSheet.Prot!gtents 0ThenMsgBox "Th3utility does not work Rp!eds+s." & vbCrLf "Un the and try ag@ain.",I@nforma,MExit EIfsfp .WULFunon.Co untA( Cells)@h0A,ADempty+UserF:1.RefE@{Column.ValuSE,s(1).EntireD Address=Show AFIrU~} 1 Y  Q! qQ!!a 3|!p"$ @pW`p\mG''(:HN88@*#\*#X*F` 2\X6`8(]p"$ @pW` %"$  8@B)p6`83''(:N88@:H N`` 6`8(a(H%p "$ p` W8W(%" $ ,)p6`8(" $||( t0 \Xp`8(krU $`prU $ `$) `$__SRP_7gUserForm12D__SRP_bU __SRP_a`RL ARD~`T< D$<`V:ARD~`X8`Z4 `\0 `^, ```( `b8$ `d `k`$$$$ $P$$$$ $>@$>@  $ $$>@>@$$$$&`H |ke@  $  $l8D@`@l   $  H@`(x@h d`` @T @D p X Dhx @ x P@ h h@ X @ H @D @ 4 @$ lh@0  @ " h@  tx @x h Phxx ` zjlhDf@  @  @ @0 @ @ @ @H @ \X@  |B?jB?jHA?jB?jxcFG.GB?jB?j :48LH@D<PTX\`dplhtLSPSSS6"<<<<< <$<(<,<0<4<8<<<@@.`Dkd*FJ ` xkntMoL` o&@Nl w.ft@P\ D$<p prtvx(@8 @ @ @  ^ @ @Px @hh @X 0@H @8 @( @ @ @  @8 @P @h @ @ @ @ @x @h @X @(H @@8 @X( @p @ @ @? @  t @0ME "  "H Xh`   ,*&   "  " (08@HPX`@  "h(@ S0*3   ,' 03   * #0&@`  YH L 43    :,,P  P  `  h  px (&&(  #0 @H(* F0.@ 0  P  p$h8  .P  p  $    .   F $h      $   @  P D` $       $8 ` h    $  &   ( 8 $X  $    $   ( $ 0 X  hx$    "3  0  8 @ "H, x p Y P `p x  xph !, \power97.hlp' (B@*l8HQ EmptyFEmptyC@F0Equal toC@F3(8 Not equal toC@F"4 Greater thanC@F"5 b$erFo 0!B!4 FRange to search: $:Multiple selection !6(8g DBetweenC@F1 Not BetweenC@F!2 Less thanC@F6Greater than or equal toC@F.7 Less than or equal toC@F+8hanSimilar to patternC@F(9an D!H D!Hh X 'X t XF b.dg( XF d b$.dg19Hnl A@tIl Z`xZZZZZZ Z8ZPZh Validate UserForm entriesIs D!H f!fYou must enter a target value. j lA@h fB@ntorsuh# Determine type of comparisonIHI f!f'Nrm2. N$pF N$r'Ng@ N$tF NU'Ng~3.FRMh D!H v!f x!f!You must enter two target values. j lA@h vB@nu8h04 Switch values if first is greater than second P R  P'T R'P T'Rh" Determine type of comparison P$tF PU'Pg R$tF RU'Rg P$pF P$r'Pg R$pF R$r'Rgh D!H'V V  b!$p b!$t> This cell is selected, and the collection is built using it as a starting point.'X8 First, select only nonblank cells to narrow the scope 0.Z'z VF ~   0%|.\g VF ~  0%|.\g zF .\g'z@ VF    0%|.^g VF   0%|.^g zF .^gZ \ ^ (%.`' Error will occur if no cells qualify(@ Loop thru each cell, adding to the collection if it qualifies b  CellCollection.Select d!B@ d!4 VHQBetween b! P b! R X 'X XF b.dg XF d b$.dgh0HQ Not between b! P b! R  X 'X XF b.dgD%\Start with first cell that qualifies XF d b$.dghhHQEqual to b! N X 'X XF b.dg XF d b$.dghHQ Not equal to b! N X 'X XF b.dgD$Start with first cell that qualifies XF d b$.dgh(HQ Greater than b! N X 'X XF b.dg XF d b$.dghHQ Less than b! N X 'X XF b.dg XF d b$.dghHQGreater than or equal to b! N X 'X XF b.dg XF d b$.dghxHQLess than or equal to b! N X 'X XF b.dg XF d b$.dghkh V similar to pattern b! N X 'X XF b.dg XF d b$.dgh8h0 bah A@ttion v!f$r'PNo cells qualify. j lA@hl ( (a` (H (h8l0 B@n  %. l (8Select a single column. j lA@hZhu z !!4  x!f$r'R%h ( (u D!H D!H A1 !$ (%.No rows qualify. j lA@h.DeletH  d!B@Jah: Create WorkRange, which eliminates checking unused area@l "B@"Attribute VB_Name = "UserForm1" " Bas0{3F10437E-06DB-11D2-BAB4-0080ADB3 6AA9}J65J dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivCustomizDOption Comp@ Text  :licbi P-1 Sub HelpButton_Ck() 2.Show End _initialize Me.CaH= APPNAME-With SelecW8Typ9.AddItem ("Empty") '0 BetPween1N(ot  2 Eq@ual to3UeH 4R Ger tha$5R PLess6 hor 7 8a Simi< @patter+9 ListInd|ex^mC ancelRnl`oad MyOK Dim TargetVal,G1h2 As Varian [D`hFlagMIntegerFou`\ .OldUAObj@W'Const `CellsulaNonBlanka ColhlumnToSearch!RangmA0WorkBl f'`).idᄅ| $enes#On Err TResu`Na0Setj }veSheet.b(RefEdit`ĎIf <> 0 Or.Csunt > 1 0ThenMs@gBox "5 @a sing`co.", vbInfa!,˒ !j.FocuExit㠢FIfFE!M.gi>= 31&\ue.@n""A EYou mGa1a tBd val ?a gi@oA"d!CDe@mine tA of ciso(2M#&a  IsNHric()  ) D*DCAIAP11)2| Th1-24Kfwos/./.!l ? A? 9BSwitF(s if first is gr seconda1JzB2en{">7%-c=7؅ ؅J 1&444  tIs+1 2 <.1sWl2 2n:oJ/Э>-U(#6}=+'W)e &o, Hwhi*elnCs checkac unu@aC2 AppBd.r-t(iv, cn"A1`YAotd) Loopru ea@ addt@>heU~p5c`h1ifix@ EIn 3 a)G0 0v9 AP]((W. ue)N$'X)##'a#Q| CQ0 ' 1B*>(AA73= ys+ :=d"`K= Q _FÇ_n!Un(0!,s0 -B1 'P ` q  T2 ThOFou= + 1zw?1* '\Start with first c that qualifies5<> 6Z3 'bEN toMK`=YY*hYOO-°4ðePwFPP '?BhUonU5 'Greater!jԅ V肟-߂V}V (((6 'Lessx('H''#''$_'''7P or @$>EԃQQof yT8)y) )=qF)OORC  1Se} lagType` 9b= 's imilaUo pat`V,VPt,Like q_+gaNext¦u{.C t0\RMsgBox "No rowsy.", vbInforma, APPNAMEsElsecbOnly,EntireRow.n!կ.D%tXUnload MG$qSubPriv{ $q'_Change~(!s E.ListIndeBx TwoFrame.VisHibl,Fa O ne Exit 0lo h _ U M_ T Tru8O !1t x! x xx! x xx($ ! (xDhH44TpdH;i `$ `$ `pL9C?j3C?jB?j8C?jx"{ 1FGD8C?j9C?j  48<@D0UserForm2 __SRP_4__SRP_5 _VBA_PROJECTrSPSSS6"LL  <4<8<<<0{3F104382-06DB-11D2-BAB4-0080ADB36AA9}{3F104367-06DB-11D2-BAB4-0080ADB36AA9}둊5$*\Rffff*2c358a937c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51$*\Rffff*26358a9267*\R0*#1b*\R0*#1a0($X0di $$$$i $$" $P$$"$$.`hk"rU . 3#!Y! i   a41 !" )"" "Q# $i$$a%(! %% *&( ../3 4y)/` 89<IY@IYDIHIq` L9P+9 ,T`1 X  \ `9 dy` hIYql9 py `q t 1m ?    H"$$ |:l%,h! Qhd'D:lNTTd 6TD'D:lNTTd 6TD'D:lNTTd 6TD'D:lNTTd 6TD'D:lNTTd 6TD'D:lNTTd 6TD'D:l NTTd 6TD'D:l NTTd 6TD'D:l NTTd 6TD'D:l NTTd 6TD(Td 5T d28|( dhTDT lx"$ x $ xhpK@! Qo%"$ @6S  laav")63'':N@:N 6! ,!  (]X5\'!  ll2/3'':N@:N 6!   #!  l>Fl l l !kl/ l "lNlY!  (]1!  (]1)6\L!  ll2!  ll22)3'':N@:#N 6!   ,!  ll !k\/,!  ll !kL/\Lr\i \< L\ <L \ "\N\ L "LNL \ \ !k\/ L L !kL/#!  Up:5"$ @W$%:%%"$  '%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%Q[l"$  &Q)@6:xhXH8(xhXH8(l$t.k: $W' $W' "6wk:p k$M @ ( k8p8 k8 l$ k8 '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u k.$W'\X$W'LK'6\ k8p8 k8  l$ k8 '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u kF .$W'\e$W'Lr6\A k8p8 k8T l$ k8A  '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u ky $W'l15\t k8p8 k8 l$ k8t  '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u k $W'l>5\ k8p8 k8 l$ k8  '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u k $W'lr5\ k8p8 k8 l$ k8  '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u k$W'le5\  k8p8 k8 l$ k8  '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u kE$W'lX5\@ k8p8 k8S l$ k8@ '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8(u ku$W'lK5\s k8p8 k8 l$ k8s '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8( k: $W'l5\ k8p8 k8 l$ k8 '%'(%'8%'H%'X%'h%'x%'%'%'%'%'%'%'%'%'%'%'(%'8%'H%'X%'h%'x%'%'%'%'%'%l$=[l =["$ Q )68xhXH8(xhXH8( $uN W)(]15\3'':N@:*N 6i! Qo6 W+,5M W+-5l"$ pX i@ L<,$(l4 0\%xhXH8(xhXH8(t(,hx! x h(X]1Hx5h\ax! x xx! x xYhx! x h(X]1H4D! D 4($]1)xD6h4\x! x xx! x x!$"$$L`xkei `"8$$8l@l @h td&e d&ed&e&e@x c&eH0PhME" H "0  `lpl l (8About (8 A@t &Attribute VB_Name = "UserForm2" " Bas0{3F104382-06DB-11D2-BAB4-0080ADB3 6AA9}J67J dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivCustomizDP Sub OKButton_Click() Unload MIEnda _initializeMe.Ca ptionAbout+Label1APPN AME 2rU 1 93 a33q-3934`189uTahoma@, ;8CancelButton(2XLabel4@, 8RefEditColumn$#Frame1@ ( |cbSelectOnly ( !HelpButtonly!  Microsoft Forms 2.0 FormEmb<9 @y`D9a?T lx"$ x $ xd0:l%,h! h @h0$ h@4SrU P$`$)`pO0* pHd VBAProject4@j = r 둊5 J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE Autom`ation^MSFor ms>SFErms/z PPNAMEKpSetFocus IsNumeric$*ValIsDate2TargetBetween1TargetBetween2Erro SpecialCells xlConstants xlNumbers xlTextValues ActiveCell xlFormulasZUnionNotFoundAValueKIsEmpty SelectionType_ChangeUTwoTargetFrameZVisibleOneTargetFramePLabel1,OKButton| CancelButtonLabel2,Label3,Frame1 HelpButtonRefEditWorkbookkLabel4, RefEditColumn initializeNClickChange _B_var_Chr\;Vis Windowsd ActiveSheet%NProtectContentsvbCrLfTypeName(StartConditionalRowDelete_B_var_APPNAMEsNumber- _B_var_SetColumnToSearchsRange Columnsp9_B_var_ColumnToSearch _B_var_IfP _B_var_On6 BadColumn WorkRange@5 UsedRangeȉ Intersect1_B_var_workrange/ EntireRowDeletexCountA38WorksheetFunction& XLCommandBar+5XLMenu XLMenuItem7 NewMenuItem CreateMenuFNewMenuItemMacroɭNewItemICommandBarButton9 CommandBars  FindControl mmsoControlPopupl)ControlsKAddrOnActionFaceIdi BeginGroup DeleteMenu Workbook_OpenWorkbook_BeforeCloseCancel BeforeClose~; WorkbooksB EntireColumnisblanke,_B_var_isblankh istemptyd_B_var_istemptyn<_B_var_UsedRange  cbSelectOnly o UserForm2*_B_var_UserForm2UserForm_Click# ZdirS__SRP_0__SRP_1UserForm1.( !pFE480E5C9-EC17-11D0-BAB3-A49207C1HF3.TWD#Microsoft = ` Ob Library9P06rPD,PJP\VBE\(EX(.E .`M ACxOfficDxO@uficBx U2DF8D04C-5BFA-101B-BDE5@xAA@w42UMSOFFICE\97.DLLT 8.0URefEditC}R%fEi(/hT^ UE0U1B}  Controlx #0~M `xD776B-147D1#x.x`Ea @F!:FGvThisWorkbooFkc|)2T)i@iWjkbAok`H1","," @G*""+"Sheet1h2S e9t1 6@ B odXule 2DomDu1a^  *\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{E480E5C9-EC17-11D0-BAB3-A49207C10000}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{E480E5CD-EC17-11D0-BAB3-A49207C10000}#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:\MSOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library*\G{E480E5E0-EC17-11D0-BAB3-A49207C10000}#1.0#0#C:\WINDOWS\SYSTEM\RefEdit.TWD#Ref Edit Control*\G{D704376B-147D-11D1-BAB3-A49207C10000}#1.0#0#C:\WINDOWS\TEMP\VBE\RefEdit.EXD#Ref Edit ControlEF둊5FGThisWorkbook 65358a860a*D@G0 Sheet1 6b358a8612*DBGModule1 26358a9267*DLGH0 UserForm1 27358a9267*D.G0hH:UserForm2 2c358a937c*D#D0h hH0%A?j'A?j)A?jKA?jB?jH: AsDelseSfalse`if|meResumeSubthen Excel+ VBAWin16~Win32MacProject1  stdole`MSFormsC VBAProject Officeu ThisWorkbook| _Evaluate Sheet1 Module1b UserForm1)StartDeleteRowWizardJUserFormNShow WorksheetHelpButton_Clickf Application*HelpfPath2UserForm_initialize5c SelectionZCellsCount0vSourceRangeLabelvCaptionxChrK~Address RowAbsoluteՒColumnAbsoluteq4AreasK SelectionTypeAddItem  ListIndexQCancelButton_ClickOKButton_Clickf TargetVal' TargetVal1O TargetVal2PTempRFlagTypezFound+ OldSelectionʮ ConstantCells.) FormulaCellse NonBlanksGItemzCellCollectionM  TargetValueYmMsgBoxR vbInformationn(A π- LG! User~` 21`%er1 :/%.d(`% 2 2p'0D#3 brU~~~~~~~~~~~~~~~~~]      XLCommandBarXLMenu XLMenuItem NewMenuItemCancel Y  Y( YI8 YH Entire worksheetYl| Range to search: Address RowAbsoluteColumnAbsoluteAreas Multiple selection Between3ҋB ` Not Between Equal to Not equal to Greater than Less than Greater than or equal to Less than or equal to Similar to patternƏYl|#=h8+3q G?,2qL  SelectionColumnsA?j EntireColumnRangeFF Select a single column.ҋB ` You must enter a target value. a1 B?j Empty aE  a-  !You must enter two target values. UsedRange a. Value EntireRow No cells qualify.B?jB?jB?jB?jB?j 9' 1p xB?j"B?j&B?j*B?j>B?j A1JB?jSelectRB?j^B?jbB?jfB?jjB?jvB?j No rows qualify.zB?jB?jB?jB?j  B?jB?jB?jB?jB?jBҋB ` cbSelectOnlyB?j 1, 1B?j UserForm2B?jC?jB?jB?jC?jC?j - 1 UserForm_Click DB?jB?jB?jB?j HelpBuedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 2295 ClientLeft = 45 ClientTop = 330 ClientWidth = 5445 HelpContextID = 10120 StartUpPosition = 1 'CenterOwner TypeInfoVer = 153 End $  } R KQDBttonB?j I/ 1pHelpButton_Click C?jUserForm_initializeC?jC?jC?jC?jC?j 1 1 AboutC?jC?j,C?jC?j+C?j*C?j q2 1 P.C?j2C?j9C?j3C?j8C?j4C?j 3 1GC?joK)^rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~c !C?j  a   A a a qAa I p Àa /10 1a 2 10,   ThisWorkbookSheet1Module1 UserForm1 VBAProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA A iPF 3C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\excel8.olbExcel Y`0FC:\WINDOWS\SYSTEM\StdOle2.tlbstdole apC:\WINDOWS\SYSTEM\MSForms.TWDMSForms aA.E .`M C:\WINDOWS\TEMP\VBE\MSForms.EXD iAL-[DRC:\MSOFFICE\OFFICE\MSO97.DLLOffice 1YC:\WINDOWS\SYSTEM\RefEdit.TWDRefEdit  9EFk7}C:\WINDOWS\TEMP\VBE\RefEdit.EXD 1 YFA?jFA?jDFWorkbook Workbook_OpenWorkbook_BeforeClose CreateMenu DeleteMenu P48<@ Worksheet Menu BarF F F F ?F`StartConditionalRowDelete  & JWalk Conditional Row Delete ... StartConditionalRowDelete FControlsDeleteAdd F VBA332.DLL a fĤIx8< aS A?jA?jHA?jA?j *An error occurred - CreateMenu subroutine.FF ProtectContents 3This utility does not work on protected worksheets.   &Unprotect the worksheet and try again.Cells The worksheet is empty.A?jTwoTargetFrame!-6S` 1POneTargetFrame"-?@Label1SourceRangeLabelҋB ` TargetValueLabel2Label3{lFWJOOKButton CancelButtonFrame12ҋB ` SelectionTypeTargetBetween1TargetBetween2Label4 RefEditColumn|MH % )`ȏ[qJ eUserFormA?j F3Dynamic  1pUserForm_InitializeCancelButton_ClickOKButton_ClickSelectionType_Change |FA?j FA?jDF Worksheet @Count a`  Range to search:  YIX QIh Qx ) a' Y+ Y, - q/ )1 2 4$  !}%R KQDBTahoma8KEFҋB `EUserForm2* !$f_o)+aCompObj,oaTahoma(2DLabel1@)Label1@a @Tahoma@(OK@uTahoma@(This utility makes it easy to delete (or simply select) rows, based on the cell values in a specified column. IMPORTANT: There is no Undo command for this operation. To enable Undo, use the 'Select the qualifying rows' option and then delete the rows manually using Edit-Delete. Developed by JWalk & Associatefo&!i22 n``00f)%{ i#   +!"$%&'()*PQ-./01:3456789,;<=>?@ABCDEFGHIJKLMNRpSTeVWXYZ[\]^_`abcdOfghjkqmnozstuvwxyl|}~o'|i24$ n``00i27! n``00CompObj%p      R"#$?&(*+,-/124568:<=>@ABCDEFGHIJKLMNOPQSTUVXZ[\]^`lbcdefghijkmnprstuwxz{|}~Root Entry F@p eWorkbook2 _VBA_PROJECT_CUR"0@{FVBA `kF<(74OKButton(OKKWuTahoma@(Cancel@WuTahoma@8(!cDelete rows based on this column:@5Tahoma@H 5Tahoma@\ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q$(eCell criteria:@D5Tahof3o "0CompObj.pf;o#%9|CompObj7pCompObj'WaVBFrameYCma@AH( F5Tahoma@(H   }r#4R KQDBTahoma(2DLabel1@.,#OneTargetFramea,#TwoTargetFramea, 8SelectionTypeea S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(F5Tahoma@(and{uTahoma@H(F5Tahoma@0  }5R KQDBTahoma,4TargetBetween1aG(24Label3@,4TargetBetween2aV G S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q((vThis target value:ri 5Tahoma@H(F5Tahoma@0  }+R KQDBTahoma\(2HLabel2@G( 4TargetValue SF.SG0yGSelect the qualifyins. Distribute freely. For more Excel utilities and tips, visit The Spreadsheet Page: [ouTahoma@0)http://www.j-walk.com/ss/Hu Courier New(;4OKButtong (2Label2@(2TLabel3@= Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm2 Caption = "UserForm2" ClientHeight = 3765 ClientLeft = 45 ClientTop = 330 ClientWidth = 4755 StartUpPosition = 1 'CenterOwner TypeInfoVer = 7 End ThisWorkbookThisWorkbookSheet1Sheet1Module1Module1UserForm1UserForm1UserForm2UsVBFrameq#PROJECTwm/vPROJECT-yPROJECTlkerForm2ID="{3F10418A-06DB-11D2-BAB4-0080ADB36AA9}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 BaseClass=UserForm2 HelpFile="" Name="VBAProject" HelpContextID="0" CMG="CFCD1BED2B757379737973797379" DPB="1B19CFA112AA12AA71628CBA724DBDDE22" GC="6765B375B38DFE8EFE8EFE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=110, 110, 709, 480, Sheet1=0, 0, 0, 0, C Module1=0, 12, 599, 382, UserForm1=110, 110, 709, 480, , 66, 66, 665, 436, Z UserForm2=132, 132, 731, 502, , 110, 110, 709, 480, EFOh+'08HPp  $0Conditional Row DeleteJohn WalkenbachcSummaryInformation(1hDocumentSummaryInformation8CompObjfDeletes rows conditionally, based on the value of cells in a specified column. JWalk & Associates.John WalkenbachMicrosoft Excel@9՜.+,D՜.+, PXd lt| 1  Sheet1  Worksheets 6> _PID_GUIDAN{3F10418B-06DB-11D2-BAB4-0080ADB36AA9} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q