ࡱ> ~VBFrame$UserForm2/ `bSfo.4ma@$#Frame2@$#Frame1@(2PLabel5@w S Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm2 Caption = "About" ClientHeight = 34  !"#$%&'()*+,-./013456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\^_abcdefhiklmnpqrstuvwxyz{|}~  I@\pJohn Walkenbach Ba= ThisWorkbook=,L;"<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\);_(* "-"??_);_(@_)                + ) , *  ` Sheet1 StartDateReportZR3  @@   b Sheet_TitlereaD _br0  /bbD0>0bMf  _br0 b Ir0/bb/0N!N/S0bt00#]D@^n00b 00Ԣ0bbb0b/btb0bStartDateReport0]< ZS0pb\tbxΝ0\pb0ZT0_T0=l0Te0T0T|?b 0|)"b b@NJT0e0YT0L0b@0b|0@b~0BT0Pbdbbu0(1T0bbbb|0bZbzb0 bZ 0  I@   dMbP?_*+%""b??NJU(  x  6\CC@],@\ 9 $< Button 1<1>@ Sheet1 <b[Oj Fa[Ojx8B@#a[Ojb[Oj4Sheet12ThisWorkbook__SRP_4 E__SRP_5](SLSS6"N0{00020820-0000-0000-C000-000000000046}@6$*\Rffff*193603eb96($H` $ $ $0h@0ME xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd rU  y  1  A i i Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2 Option 0licit Dim XLCommandBa@r As SnBg Menu Item New PW[ Sub _Open() EMacro//\Butt|on3 i{sheet 3:m'@  code h@les non-English versKs ofLcel  in which the Tools mAIhas a different &n@6XL= App@^aAa./s( ,).FindControl(msoPop up, 37).CarIF<@8BId@&JWalk DAbReport... _ StartA  C ADeleAcurBx m(Han$ eloc sed@, telluserErr <> 0 MMsgBox "A1 - cXA& sub`tine.", vbInmb# a;BCl(CanBean/`$0  0execdenwd ((addP-in)!ca dB.t sisy remov^3 Scrkc1];H'"/T" ggg`?{!P:dRdPn YYnkQHYicrrG`P(1Y  D1aY` `1?` T4x'%'%'(%(87u%H %X4F\%lp! p dl HX  >8)plX6( T< T@CxK@@<@8FH%X4F\%lp! p dl HX  , (   ) plX6(u@@8FH%X4F\%lp! p dl HX  , (  ) plX5(K<00s8FH%X4F\%lp! p dl HX  , W( W t) plX6(<@8FH%X4F\%lp! p dl HX  , ( W W t) plX6( lt@  lx  \  | $ pp lpY+'''@:\N(( 6(`0Ytx4 plX(0   DDSrU P$`h()`l #pLA[OjF@[OjxBF#@[OjA[OjD [LSS(L&>"LLLLLLN0{00020819-0000-0000-C000-000000000046}@6"*\Rffff*d3603eb40*\R4*#4c*\R4*#30*\R1*#208*\R1*#a7*\R4*#48*\R4*#49*\R4*#4b*\R4*#4a*\R0*#10*\R0*#16*\R0*#1*\R0*#118b<<@h`$$ ``oh))`"x $t $D`l1ZiF Z`8$b44@ersib88@ols b@@@ PXX$Hp@`.(>B@0p @`l @x\ @X @H @8 @( @ @ @  @ @ X` $@#@ @@ @`h880Pph (MEB  "(08  @ 8` 6$x      <8x2(u " &s H0P  4  H8  X`  ,h $8+ "   F (@ h 8$2(Hp xZhZZZ`ZZWorksheet Menu Bar'2 This code handles non-English versions of Excel/ in which the Tools menu has a different name .7u  (%*%,!0''&JWalk Date Report...'StartDateReport'"6 Delete the current menu if it exists (just in case)     (%*%2%2%2B@4    (%*%2%2B@4 Create the new menu item    (%*%2!2!6.$a    (%*%2%2!2!6.$hx. Specify the Caption and OnAction properties $ 90 "989::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 user >*An error occurred - CreateMenu subroutine. BA@@hl@ This sub is executed when the workbook (or add-in) is closed." It simply removes the menu itemWorksheet Menu Bar''StartDateReport'2 This code handles non-English versions of Excel .7u  (%*%,!0'     (%*%2%2%2B@4    (%*%2%2B@4lȴAttribute VB_Name = "ThisWorkbook" Module1 %E__SRP_2 `__SRP_3gUserForm1 0CrU~}  yQ(  0x"$ @Qxoh #d0/d5hH"$}3''$:DN44@:T Nhh 6h4$h$} $dxh4$0 X  frU $`$`prU |$`$)`$i`$`,`Yi//$)`p`d[OjD[Oj>#b*\R1*#90*\R0*#10*\R0*#16*\R1*#15d*\R1*#3f*\R1*#15c*\R1*#15d*\R0*#f*\R1*#158*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\R1*#b8*\R1*#c1*\R1*#ac*\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*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#.i16086 n``(q9f%to57 $CompObjp.\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\R0*#16*\R1*#a7($p` ` eaud`  0` k `(op]]+I I `8hk nt$H dH $bx44@b88@00pPxR$0$J0@l @h G8PhP (ZP^t@x @Xh @\X @T @DxwBD P> L"@6"*\Rffff*c3603eb40*\R1*#20b*\R1*#b8*\R0*#10"*\Rffff*e3603eb4e*\R0*#1*\R0*#11PX LX`xk V`// J`HH$PNRBJ@@x @Hh @d JWalk Date Report8 @0T @D @`4 @x$ @ hXME9 " 0( HX&3` "      0PX` P 0 Pp  ( 0 8 *X ( B   @ H&h"&"(0@Z$JWalk Date Report  P$N Worksheet RB@Ta Select a worksheet. B JA@@hplhX Z.X P.\ ^B@6 P.  \!b!d!f'` \!b.h n p r h%l.j >F t.jg'> x p r h%l.vI WorkRange is a subset of the original selection -- nonblank cells only j v (%|.z Address7~(Formula7~(Display7~( Serial No.7~(Year7~(A4:E47!(nH'  z $ %  ,~ !F' !  ,~g !f  ,~ !00000$  ,~ =YEAR(RC[-1])  %~(  %~ (!%FERROR  ,~g  'h A:E %!B@  Earliest Date;~=MIN(d5:d65536)7~( mmmm-dd-yyyy7~( Latest Date;~=Max(d5:d65536)7~( mmmm-dd-yyyy7~(nl\Attribute VB_Name = "Module1" Public Const AppAs SngJWalk DaReportj SubFart0.() If Type(Active@Sheet)LWorks " Then04UserForm1.ShowElse!MsgBox "Select a wK.", vbInf?at0ion,Gnd If E[ _Check_s\Set OriginalBookX`[b' ms.Addutptutx >#.dRange.Rows.Count$ur sOn Erro@r ResuN exH~antC0ellsC.S@pecialB(xlE s, xlNumbers +TValu es@ <> 0Bx K U3qA = 0+ula&+ [+'G#iBX is@subsof the oD sB -- nonb@lank cBLonly-:=@£.Un@(A, 2@OCWith Op.;(4, 1).[>"ress 2 3Display"4Ser@C No.R5HYearb-("A4:E4").Fon@t.BoldTDR1C1("=YEAR(RC[-1])@#c7Fun on.Is( 4)#:De8"ERRORl*J+ 1G&PaƁ!1?sY:E`YEntireC.AutoFiĬYz1M"Earlie`AV$@p,+MIN(d5:d65536+*cqaAg"m-dd-y_2L~ϿPaxmm?z ȔG@4 @$ @ @ @ @  @ G0 |G@ @ 8G"@h @ BJ@HxGd@ @ @ vx$ jtp$ zp $ xK[OjH[Oj<[OjJ[Ojx|0&BJ[OjK[OjL&tt9:>BFJNRVZ^bfjn SPSSS>" LLLLL LLLLLL LLLLLLLLLLLLLLLLLLLLLLLLLLL<<<<< <$<(<,<0<4<8<<<@x(@P  @h @ @ @ @ @ @ @ @( @@ | @X l @p \ @ L @ < @ , @  @ @ @ @ @B @ `XH P FP~BB`````@ @ 8 p  p  H 0  p  p  H 0  p  p  H 0   p  H 0   p  H 0  @ X@_ m p0Px | ME "  ( " 0 8H " P Xh "p x %    , 1 ( 1 ((8=@ 1X (h+x &   % RGPX " `  hTx  >"0(H` p  " H7 (  20h2p&F 2&Fp     0  *>8 (5 *3h > BQ <(( // /0 /h / HH ))0)P)p) ) )),  0   $8  hp "^ 2   (; (8 (X 0Dx "5 "5 Zy *SX (+ By      +8 XuX  "      ZPZx0 A@tIlPp A@tl0 B@Tl' ((H Z.X P.\% Create new workbook for the report (!'  (( ^B@6  (( \Aa X!!f (( ^B@6  ((  X!!f  X% A h8 A@t (( Reports were not generated for  protected sheet(s). B JA@@hl0 ( Working on ! $Sheet   of  Z!!f' (0% (0A@  Z%.  ! Date Report' $ ( !b!d!f'` !b.h  'hp Check for protected sheet ! !( is protected. Report was not generated. ,~  'uh+ Create a Workrange - nonblank cells only n p r h%l.j'>8 x p r h%l.v j v (%|.z z!f'# a Write the headersean` Address B7~(inRow B7~(^3 Col B7~(" gFormula B7~(nDisplay B7~( No. Format B7~( Serial No. B7~(Year B7~(A1:H1$(X( Hn Examine each nonblank cell L9J'  z  '    0%$ !(0   (A@h $ %  ,~ !  ,~ !  ,~ !F' !  ,~g' !f  ,~' !  ,~ !@ !GeneralF$B  %~!(g !00000$  ,~ =YEAR(RC[-1])  %~(  %~ (!%FERROR  ,~g  'h  Fit the columnsA:H %!B@ A8:H65536 % (!%F(No date cells)  ,~gl  J (0 !(lZ >FA1 %.jg'B Workbook: !@!Z;~Report generated: F;~t.name Worksheet: !;~ B ' B$~ B$~7!( P9N9R9TA2:H2$(XA3:H3$(XH1A1:A4$!(\utionA4:H4$(X,Beta Software - Review the results carefully;~A5:H5$(X7~`mailto:support@j-walk.com P!^B@6%Click here to e-mail a problem report7~(P >FA1 %.vg@ .Attribute VB_Name = "UserForm1" " Bas0{13FD1698-60EB-11D2-BAB4-0080ADB3 6AA9}J34J dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivCustomizDDim CellCount As Long  Protect Integer 0 P48 Sub CancelButton_Click()  Unload MfEnd2-Help;D{2.Show 2 OK == "0C2App6ation.Scre enUpdngkdA 0EMsg Box "5s werVot g9dV" & J & " p#@1(s).", v(bIn@]mn, ?@Kh{aFshpt, n"AulasRange, Constant@BfMultiPage1.ValuaLabelbTNum@>"Aion& .& Chr(13Z)!"n ofcs!AE" *gress.W0idthFr 2.CapA 0%A:DoEvpents#uxtpub iM%*Shtb=" D7!@d Ob = Left(d, 3Eyx#@hd.`.Rows)su^rA6MTn 6u)z0z0UheckR) (*o #(1IaT" is-. s was zn1.!y= 2+ hWExitcua ca 1$-`nblank P{ls o_On ErreResu!D ;2= .Specialx`4 s, xl 0bers +TH2s8 D Os% ("A1"ayO xq>? lls(xlD/ / , , !O!LUn@(y, IT=1#WritЁhead.H57#WiB+q#.,K-G:I Ppnt`.Full!.240\3w1bsN! 4%Beta SoHftwP -5viPPZs cuf y6URW.Hyperlink Anchohr:=5gddU:="mailto:sup@j-walk.Xcom.R(1C1" hAqto e- aBm$w /:H 0.Mer|geRz2`:H2")?3x:H394:H4"A58:H5=:A1Fo$Ita 1. +6w"a2)/b3Col4/45Di.s)6No."Aat/(7(Sal /(8(Year$A(1N8)).pBol7$QiF'(JExamine eachKiSCurr3KdpPer #P Each cell In WorkRange Counter = $+ 1xIf\Mod 10P0 ThenFMe.Frame2.CaptionNFormat(W/ C , "0%") BLabelProgress.W0idthD>) * 200 >Do@EventsE`nd IfeI@sDate()bOutput.Ss(Curr(Row, 1)E!.AddO(rowabsolute:=False, cmn r1218Zz3C= wYHDasbula< 4"'" &-B.D $#5LText6Numbera4If"@" OrC-GeneralR"?6);noloRGB(2`55, 0%q72-.Valu@"0Mb8"rm@lR1C17=YEAR(RC[-1])"UDApplica.sheetFuncBIsEr\r( caC83ERRORld; qNB4c ' \Fit thehDx"[s("A:H").Entire].Auto`C BA ⠠ 8:H65536")c7!"(No ds1ASub Priva UsX_Initialize(dI G7N MultiPag(%(%:LS \WWW<@,%l#6<,5 @(L%:\>WaB`1FJNa R 1` V Q`Zy9^a b `qfa  j !`1ny9Ij??0 0  0 p  0   < 8% x"$ x xx"$ HQxhx"$ @QxX1T x"$ x lTi4Dxx! ^Qxo$A( x"$ x x1 '$%x"$ x ()x 5$(D" x"$ x x($X5$5=hW$ W " x"$ x x6$1 '$%x"$ x ()x 5$(D" x"$ x x+(4hW$ W 5$h5& @h$ $5$ ~lx" $  x% x"$ x x 8G'':4N@8#*#*F$ 26$@(hXD,x $ l! wl l:L \W<,   ::l"$ Hl  0li`#|! w @/|)l6<, 7l! wl ll! wl @l >\%l"$ Hl  dQl)l \W<:L,\5<"\<  <%l5<( \W<W, W L6<, \W<stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation^MSForms>SFErms/4z pFE480E5C9-EC17-11D0-BAB3-A49207C1HF3.TWD#Microsoft E= ` Ob Library9P0r PD,PJP\VBDE\(exd(.E .`M AACxOfficDxO@uficBx U2DF8D04C-5BFA-101B-BDE5@xT UserForm2*OKButton_ClickfScreenUpdating!  UserSheetCt|SheetsInNewWorkbook obActiveOnly9GenerateReport Worksheetsi`shtne MultiPage14? LabelSheetNumwChrK~ LabelProgress}Frame2ShtName}nzqProtectContentsCounterRowColumniColor2FCountA38UserForm_Initialize5cLabelEMAIL_ClickwAdrsNoCanDo=`FollowHyperlink- NewWindowLabelWebLink_ClickWorkbookk BeforeClose~;ItemzNumber-UserFormNFrame1 obAllSheetsнLabel1,OKButton| CancelButtonLabel2, CancelButton2v HelpButtonClick InitializeN_B_var_OriginalBookY_B_var_OriginalSheet_B_var_UserSheetCt^_B_var_i  _B_var_Chr\;_Defaultj _B_var_Outputs_B_var_ShtNamer _B_var_LeftQ_B_var_x _B_var_urange_B_var_z_B_var_constantcells _B_var_formulacells_B_var_workrange/_B_var_CurrentRow_B_var_Counter _B_var_cell _B_var_Format Worksheet LabelEMAILOLabel4, LabelWebLink.Label5, constantcell8_B_var_constantcellU+Parent HeaderRowI*_B_var_HeaderRow3Now% SelectionZHorizontalAlignmentS@ xlGeneralbVerticalAlignmentʡxlBottom?WrapText} Orientationw ShrinkToFitA MergeCellsکFullNameОItalic! Hyperlinks:Anchor#r _B_var_IfPMd_B_var_M  _B_var_SetIS  Zdir__SRP_0v__SRP_1`UserForm1;- AA@w42UMSOFFICE\97.DLLC, 8.0U¶B£Sheet1E2¦Sh,e@1YHB1B@B,B@"B+BBThisWorkbookN2 T@i"WkboBkPMFLBodule52o nu"n / D!" UserAX` 12e&rj1 9/ %#((` 2* 2 2p'p) f brU~~~~~~~q    91Cancel  a^  *\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 @6B Sheet1 193603eb96*D@ThisWorkbook d3603eb40*DFModule1 c3603eb40*DHDH0 UserForm1 e3603eb4e*DS0H9UserForm2 1a3603eb96*Df`px`H03[Oj5[Oj7[Oj9[Oj;[Oj@ as`ifsetthenTrue Excel+ VBAWin16~Win32Mac VBAProjectstdole`MSFormsCOfficeu Sheet1 _Evaluate ThisWorkbook| XLCommandBar+5XLMenu XLMenuItem7 NewMenuItem Workbook_OpenNewMenuItemMacroɭNewItemICommandBarButton9 Application* CommandBars  FindControl mmsoControlPopupl)CaptionxControlsKDeletexAddrOnActionFaceIdi BeginGroupErroMsgBoxR vbInformationnWorkbook_BeforeCloseCancel Module1b(AppNameKp(StartDateReport׾TypeName ActiveSheet%N UserForm1)Show (CheckDates OriginalBook"ActiveWorkbook OriginalSheet6 WorkbooksBxo UsedRangeȉRowsUCount0vurange ConstantCells.) SpecialCells xlConstants xlNumbers xlTextValues ActiveCell FormulaCellse xlFormulasZ WorkRange@5UnionCellsValueKRange FontUBold CurrentRowSmcellIsDate2Address rowabsoluteՒcolumnabsoluteq4 HasFormulaFormulaqY FormulaR1C1SWorksheetFunction&IsErrzColumnsp9 EntireColumnAutoFit&  NumberFormatR CellCount ProtectCountCancelButton_ClickCancelButton2_ClickȌHelpButton_Clickf- Address rowabsolute A8:H65536columnabsoluteRowColumn HasFormula 'FormulaText NumberFormat @ General  L Color 00000 =YEAR(RC[-1]) FormulaR1C1 ERROR A:HColumns EntireColumnAutoFit A2:H65536 (No date cells)Q[Oj[Oj[Oj Workbook: ParentCaption Worksheet:  "  Report generated: [Oj[Oj[Oj A6:H65536[Oj[Oj[Oj A2:H2 A3:H3[Oj ,Beta Software - Review the results carefully A4:H4 A7:H65536[OjFullName[Oj A1:A4MF[Oj A5:H55[Oj mailto:support@j-walk.com HyperlinksAnchor %Click here to e-mail a problem reportM`jg`js`j`jki042 n`` !fo13CompObjpCompObj9,aVBFrame. PROJECTwm3PROJECT:6|fro+i07pFz?a`fK)^rU~~~~~~~~~~~~~~~~~~~~~~~~< Q`j   a ya q)Qa q 1Y1Q19! VBAProjectSheet1 ThisWorkbookModule1 UserForm1 UserForm2F=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA q !(F 3C:\Program Files\Microsoft Office\Office\EXCEL8.OLBExcel !80F C:\WINDOWS\SYSTEM\STDOLE2.TLBstdole  HC:\WINDOWS\SYSTEM\MSForms.TWDMSForms yYX.E .`M C:\WINDOWS\TEMP\VBE\MSForms.exd YhL-[DRC:\MSOFFICE\OFFICE\MSO97.DLLOffice IqxStartDateReport CheckDates FA[OjF@[OjDFWorkbook Workbook_OpenWorkbook_BeforeClose P48<@ Worksheet Menu BarF F F F &JWalk Date Report... StartDateReport FControlsDeleteAdd F VBA332.DLL!-6S`    fĤIx8<  S  *An error occurred - CreateMenu subroutine.F  O F Q WorksheetG[OjK[OjH[Oj<[OjJ[Oj{lFWJO MultiPage1 H"-?@ LabelSheetNumȏ[qJ eUserFormI[Oj F3Dynamic  !X?F`Frame1Frame2Label1{lFWJOOKButton CancelButtonRҋB ` obAllSheets LabelProgress HelpButtonLabel2 CancelButton2 obActiveOnlyCancelButton_ClickCancelButton2_ClickHelpButton_ClickOKButton_ClickGenerateReportUserForm_Initialize | JWalk Date Report Select a worksheet.ɏYl|F WorksheetsCount#=h8+3q hG?,2qL I Reports were not generated for  protected sheet(s).  ` x Working on Name Sheet   of FYl|ƏYl| 0%pj).`  V  Date Report  i  UsedRangeRowsProtectContents ( is protected. Report was not generated.Cells SpecialCells A1FF AddressValue Row Col Formula Display No. Format Serial No. Year A1:H1RangeFontBold     s   L\ "t#$/&'()*+,-.812345679:;<=>?@ABCDEFGHIJKfNOPQR[TUVWXYZM]^_`agcdeuijklmnobqr!wxyz{|}poi09"i*WJO@i10i*WJO@`CompObjs     !"#$&(*+-/01245789:;<=>?ABCDEGHIJKLNx0foi12 & n``@` Root Entry FSWorkbook>N _VBA_PROJECT_CUR"<VBA a( A8 H  X yhshtnQ$H @ }0v(    pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1? Page1=DCompObjnf o!#>i01$) n``@CompObjnfo%'4CompObjpPage2=DTab3Tab45Tahoma@$H }? t2$ #Page1@$ !Page2@ P i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q ( Working on...D5Tahoma@,(Generating Date Report...K7+@Tahoma@(Cancel@quTahoma@$H }? 0 2@LabelSheetNumD$ #Frame2@a(2PLabel2@X0 ?8CancelButton2DU  S i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(This utility creates a report that describes all cells that contain a date. The report may help you identify potential Year-2000 problems.c5Tahoma@(OKfquTahoma@(Cancel@quTahoma@aR KQltBM6(fo(*CompObjpCompObj,auTahoma@$H }? (2Label1@+(74OKButton  $#Frame1@+5, ?8CancelButton ( HelpButtonvK  S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q")5Tahoma@0H }0%v8v0 24LabelProgressD> S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@Fs01fActive sheet only5Tahoma@PF!A00fAll sheets in the active workbooksJ5Tahoma@<H   }tReport scopeR KQDBTahoma\( `obActiveOnlyX( pobAllSheetsX S#9MultiPage1v S Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = )'05 ClientLeft = 45 ClientTop = 330 ClientWidth = 5340 StartUpPosition = 1 'CenterOwner TypeInfoVer = 13 End Sheet1Sheet1ThisWorkbookThisWorkbookModule1Module1UserForm1UserForm1UserForm2UserForm2ID="{27FF5199-4EFA-11D2-BAB4-0080ADB36AA9}" Document=Sheet1/&H00000000 Document=ThisWorkbook/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 BaseClass=UserForm2 HelpFile="" Name="VBAProject" HelpContextID="0" CMG="A1A35CA460A460A460A460" DPB="85877860B84DC14DC12E4BF1C3175416A77B" GC="696B946995699569" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet1=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Module1=0, 0, 0, 0, C UserForm1=88, 88, 737, 443, , 22, 22, 338, 222, Z UserForm2=0, 0, 0, 0, C, 44, 44, 408, 298, C 2595 ClientLeft = 45 ClientTop = 330 ClientWidth = 4620 StartUpPosition = 1 'CenterOwner TypeInfoVer = 32 End (H  @ }$vR KQDBTahoma$4OKButton}(OKf4uTahoma@,) n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qSummaryInformation(=@TDocumentSummaryInformation8FCompObjMf,This is a prototype, and I am asking for comments and suggestions. This utility will be part of Power Utility Pak 2000. Please send your comments and suggestions to:25Tahoma@0mcsupport@j-walk.comO ,R KQlt  ( @ ` 7 @Courier New<,%For more Excel files and tips, visit:[L5Tahoma@0mcThe Spreadsheet Page1,R KQlt  ( @ ` 7 @Oh+'0$ PXt  JWalk Date ReporteJohn Walkenbach=Create a report that describes all date cells in a worksheetdJohn WalkenbachMicrosoft Excel@}Z@$՜.+,D՜.+, PXx Courier New,J  }( 2Label2@, 2nLabelEMAILv" ( 2\Label4@ , 2nLabelWebLink S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(This add-in creates a new workbook, and then generates a worksheet database that contains information for each date cell in a worksheet. After creating the database you can sort by various fields to identify potential Year-2000 problems. )5Tahoma@(H  } 0v(2$Label1@ SThis is beta software!vS{@Taho JWalk And Associatesets  Sheet1  Worksheets 6> _PID_GUIDAN{27FF519A-4EFA-11D2-BAB4-0080ADB36AA9} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q