ࡱ> om for updates.05Tahoma<[;8CommandButtonCancel1074CommandButtonOKe( #FrameScaleto"02<LabelDataRangeKe>,8RefEditDataRange , 2TLabelUpdates ]^` Microsoft Forms 2.0 FormEmbedded Object9qz{|VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserFormBetterHistogram Caption = "Better Histogram" ClientHeight = 3195 ClientLeft = 45 ClientTop = 435 ClientWidth = 3810 StartUpPosition = 1 'CenterOwner TypeInfoVer = 111 End ThisWorkbookThisWorkbookSheet1Sheet1UserFormBetterHistogramUserFormBetterHistogramModule1MainModule1MainModule2AddXYModule  !"#$%&'()*+,-/01234578:;<=>?@ABCDEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ \pMichael R Middleton Ba= ThisWorkbook=Z[;#8X@"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\);_(* "-"??_);_(@_)                + ) , *  # `2 Sheet1$ bins_array;$ data_array;" twobytwo; )pR+ Sheet_Titlereaͱ0ap N+ip0&P+ &  &&P+ Н0& \G+ J+< ip0N+N+ |O+ &j0& ZN+T0dt00 __Demzm00 E000߿0N+t0twobytwoaycent0]%USERP؄!FIP!%\\G+80\40{T0T00Te0Tբ0T|?10|)@kT0e0{T0L0{T0LkT0»Ȼ0 $0T ))ڬp08ם0p004\G+?+\G+?+S]0\G+T+?+%0cc   $  dMbP?_*+%"??kUT0>@ Sheet1 rU 8 N%N4%IThisWorkbook __SRP_2.__SRP_3 6Sheet19/%` `1?<   $ 0 @  44S<<<< <$<(rU @$`h()`l i#p(`@ xk (@`NYY (h$x $"*44@b.88@ownWb0 <<@ressb4hDD@pWWWb6pLL@eDowb:\\@Mous(p @hScro(Acti H(PXH` e f$`(`$ $$ DZF0CjLKߕGcgJ7Aitz{"MffKxr"Sa{"MffK$ DZF0C #jji: lptx|SPSSS0,>"*L**LL*LLLL*L LLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{2B55D42A-30A0-4D7A-BDAC-4BD81834390E}{EB3C7567-D314-46EF-AFBE-4AB8554FFAAB}(A*\R1*#15d$*\Rffff*17419a8e9a*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#2f*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#..\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*#4<*\G{83499FC3-1358-42C0-B801-F7AFC22BFFB5}#1.0#0#..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0<*\G{83499FC3-1358-42C0-B801-F7AFC22BFFB5}#1.0#0#..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\R1*#a7*\R1*#208*\R1*#b8*\R1*#20b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\$($ $i F.` khho$hi h( @pH$~(B- ((`H0@x @t p`$q`(t@` <$\` tHX`,$h|@H xD`` $H@`<$xRVX<`<$  8 `<$@ P 48 `$p  0h `$ P  , `$  ( `\$  $ `\$0  ( `<$ (t@x  hHX@ME    (@ "P Xh " p xD $"+  0 :+ Xhp x^ >+       0( +X(+p  % +&+   %( +8&+P x %  4+   V  Bh V+ (8@ 6H  `h?p  6  j?   "*    "   4 L @ Lh "50 8 @ HPX`hp    ' '    (0 P  ` hpx         ( 0 8 @ H P  p                      0   @  H P X ` h p                     ( 0  P   `  h p x           xZZZ Z@hpZ (A@tl( B!f$,.* DData Range is not valid.A@F BB@Huh *!J!L'. . /Data Range must be a contiguous range of cells.A@F BB@Huh 2 * 2$N 2$P4All cells in Data Range must contain numeric values.A@F BB@Huh 2 *!L'0)MsgBox "NumDataValues = " & NumDataValues R!f$NStart Value must be a number.A@F RB@HuPhH R!T'4 V!f$NStep Value must be a number.A@F VB@Huh V!T'6 X!f$NStop Value must be a number.A@F XB@Huphh X!T'8 8 4)Start Value must be less than Stop Value.A@F RB@HuhPMsgBox "XStart = " & XStart & " XStep = " & XStep & " XStop = " & XStop;MsgBox "(XStart + (2 * XStep)) = " & (XStart + (2 * XStep)) 4 6  8 LEnter Start, Step, and Stop Values so that there are at least two intervals.A@F RB@Huh * Z%\': : 4 OStart Value of histogram must be less than or equal to the minimum data value, :.A@F RB@Huh * Z%^'< < 8 QStop Value of histogram must be greater than or equal to the maximum data value, <.A@F XB@HuXhP * 0 : < 4 6 8A` (A@tllHl ~!*Win* (J9J95 9Z999 Lucida Grande5(7\ 5( nH5B99 99 Lucida Grande5( X 5(n59:9699 Lucida Grande5(, 5(,n59Z999 Lucida Grande5(x5H 5(xn(59Z9F99 Lucida Grande5(:` % 5(x,n59Z9s99 Lucida Grande5( h 5(nh5R|9999 Lucida Grande5(x, 5(@n5V|99A99 Lucida Grande5(:` 5(n5X|99n99 Lucida Grande5(78 5( nH59d999 Lucida Grande5( X 5(n59d999 Lucida Grande5(4 D 5(4 n5 9"999 Lucida Grande5(| 5(7n(n h.''Most of this code is for the Mac dialog box.F''Controls of the original dialog box were modified using Mac Excel X.E''in the Mac VBE properties window and entered into Win Excel 97 VBE.prop:''For each control the location, size, and font were noted Attribute VB_Name = "UserFormBetterHistogram" Bas0{2B55D42A-30A0-4D7A-BDAC-4BD81834390E}{EB3C7567-D314-46EF-AFBE-4AB8554FFAAB} dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivC"umizD Option 1licit Dim Range As  NumAhs @Long, DpValue OneCell !@XStart D$ou, ep o&2Min ax/PAC Sub CommandButtonCancel_C:k()  Unload; EndOKCOTrror ResbuNex@VSetV=V(Re`fEdit3Z.T D(If Err <> 0 ThenCMsg`Box "  is not valid.@ !FocusG,GoTo 0Exit SCD\IfC=G6..Coun>1Q > 12m be a contiguous "rof rlsl8@ Each VIn'ca)!`,Is@nc() Or IsEmptygK66A c Zh8aanGric!:k A :{)8A8SE{o;: '" &)!_Zb`TE gE%ber$ ^B\= *c ]e~p< d s o  /pp<>=adeORAR"e less thapn St #x. #Q1 G0& "3 o !P o.p#S(+ (2 *))Qep)e;@8 >@?1\EnЕ ,`exp, vs( sot@erK\1tpas woOj\#poLhAKq= WorksheetFunca.p(t0f#edRp VBE propertiwinhdowRBeCin1W 97 0@Init/@%+NApfp .OngSystem Like "*P*"\=WithR<"1/1.HeightU33豑Wid`= .Label-19.Lef12+1.9LTV= 17I 25.Fp.Lucida Gdeh!bS@13!+a[ ;=E1 .߱= 12 .Height = 25tFon@t.Name"Lucida G@rande"ZS$izZ13 @End With  .FraSca le .Lef6Width314Top5z160zLabelStartAz9]zwzƎ.BHpzHA h\11>` TCommButtonOKkߚ.F]0D]3_)`_ O>3Cancel{2/;  ]2_No]Updates_2O|/m If qSub  ``qtI q x  |I  I I ! A  `  I`1I AG i ii?\( "Vx"$ x($ x0 (  0   5t x"$ x tlt~/tx}"VpJj`%p,Jj`%p,xp Qx\ 7\ hZ7\ 7\ 7\ D:` %x\ X x,x(` %x\ X x,x \xp QxXj`%X,j`%X, j`%X,j`%X,':` %XaH xx,x5H'(` %XaH xx,x5H Xxp QxD7D h:7D 67D 7D D:` %xD d x,x(` %xD d x,x Dxp Qx@7@ hZ7@ 7@ 7@ D:` %x@ X x,x(` %x@ X x,x @xp Qx<7< hZ7< F7< 7< D:` %x< X x,x(` %x< X x,x <xp Qx878 hZ78 s78 78 D:` %x8 X x,x(` %x8 X x,x 8xp Qx4|74 h74 74 74 D:` %x4  x,x(` %x4  x,x 4xp Qx0|70 h70 A70 70 D:` %x0  x,x(` %x0  x,x 0xp Qx,|7, h7, n7, 7, D:` %x,  x,x(` %x,  x,x ,xp Qx(7( hd7( 7( 7( D:` %x( Hx,x(` %x( Hx,x (xp Qx$7$ hd7$ 7$ 7$ D:` %x$ Hx,x(` %x$ Hx,x $xp Qx  7 h"7 7 7 D:` %x X x,x(` %x X x,x p(\X}@ p\XD@<840,($ txHppCrU $`$)`$i`$`  prU~} !y&&&& (a(((9)#Q)) O        08  H`@ "Bt "!  "  (8 HP X h$A  z $   ( &88H :(    >2 $8``2h .@ p ( > H p 2 G(G@ X Z@Z`A 7up$l%n.d d8Cannot add Better Histogram menu item. Use Ctrl+Shift+H.A@F*u`aX vn d!r%t.h hBetter &Histogram9x Ctrl+Shift+H9zBetterHistogramDialog9| anh  BetterHistogramDialogH ~B@lp` Better &Histogram7up$l%n%rB@Fl (B@sglber." Z0HoxZh '\  ' Better Histogram ''  er $ !$ 'r0h( mber."   !!tB@  ( EnZ .TextBo Upper Limit %(Ter Frequency %(TsgBo.Here's where the BetterHistogram code will be.A@Fl80'  '  6 '  8 _ 4 6 'xU6$L (Lf(Lj0,<> <<<<< <$<(<,<0<4<8<<<@>()* hp$i0i:i<Ei42i6 i8$`x t` $`r `p H $b$b0$ $$$ p$$bPb` `t`hl lFv~~`$ 0`hp X`8@p @` @\ @PL @< @(, @h $@ @ (H` ((X@(@ @ 0@ @ @lh @x H 14X(@h @ d 0X@0 T (@ D   @( 4 @ $ P0  @H  0@ @ @  (P0@x @ @ @| P ( 8pFv~ 8 p @`  \ @L (P p< @, @ @ 8 X `@8X 8@ @ @ PP@HMEf @ @( 6h H "  b  @B+P$L  %(TZhZ8 data_array *(    %(T$  $ %,. bins_array (et B@ange(cZh$  $ %,.!=frequency(data_array,bins_array) (  B@ ~(8''Histogram in columns D (4) thry J (10), rows 2 thru 19 - %! %! %! %!  %! %! !%t. (4$  $ %,    Better Histogram !B@Z  : %<!h' : %<!j' 4 6 8  AChartFreqMax = A@FChart 1 %B@ '8 (!BB@H.S:''Some of this code is adapted from John Walkenbach's book9''Excel 2002 Power Programming with VBA, M&T Books, 2001./''Only Win Excel 97 SR2 was used for all codingA''with subsequent testing on later versions of Win and Mac Excel.Attribute VB_Name = "Module1Main" Option Explicit '''Soof this code adapted from John Walkenbach's bookxExcel 2002 Power Programming withA, M&T BI3s,+1.zOnly WiF97 SR2 w as us|or allNoRsubsequent testjlat?ver2srs h,and Macz0;Sub CreMenuItem () Dim Tools As Comm BarPopubpNewB`uttonC`DeleteQ Set9=9s(1).FindControl(Id:=30007WIfIs Nop]TheD 5MsgBox "Cannot add BetJHistk mB i@B. Use Ctrl+Shift+H.Exit O/ElseC1IE=&.0s.A_ (Type:=msoD CP8AWA.CwA@5&6.A.ShortcutpText : O8nAcDialog E)3&AIfCApAa.roCs C:="1E, HasE2Key:=Trues "H a"7 Z Q_OqrBrnResuNo$aR.ie>(% 2). rR.@ cDataaInvoke_Func, h) "UppuLimit4U)BinsArrayA.`.a"= 4,+6ev2 =%Do WhPile A -j(C//0).0F.b SWizard SourcРx?0s(:0,2)pGerIpxl , Q$at:=(Plot*BsC goryLabelsSeries0, Lnn2!Titl ՎV(PCK\(" 1").RY@e7#,MvSt9~ ^B.APxes(.)pximumScal`fyjorUnPXY(\,\b&v @/ Q __SRP_4__SRP_5 #Module2AddXYg._VBA_PROJECT~#b' %'%',%(L7u%'<%\(`%p"$ dp H\ l=x)p\6<, lxc+' '',:`N<< 6<, 1L\' %'%',%'<%`%px Pp $ l\= t)p\6<, lt     h  ` '%'%'%' %:%cL%'%',%'<%:`%p"$ p p6<, 01tx4 p\<, Kt: %'%'$%'4%(T7u%'D%d(h%x"$ dx Hd )xd6 D4$$ ,xdD4$p<!x"$ xx"$<$ x0   \rU $`$`$`aqL` !9Q=(+++++pU0* pHd VBAProject4@j = r (A J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`MSForms>SFFrms/| rB@J %"(0  4 6;2 4 8;2 : 6;2 : 8;2n @ 4 6 %<(> @ 4 8 %<(>~ 4 8 %<B@J !B: F9D J9Hnh  J9L J9N J9Pn@ : 8 %<B@J : 8 %<9R9T9V9X \9Z9^9` d9bn  4 6;2 4 8;2 : 6;2 : 8;2nx @ 4 6 %<(> @ 4 8 %<(> 4 %<B@J( 4 %<z 49f 89h9V 69j \9Z9^9` d9bn l(*vel Range("H27").Select$nChart 1 %B@el %"B@J E !Be F9D J9Hn  @9p @9r J9t9v9x9zn ! B@JP 4 %<B@Je !|(~3 !|!Arial9Regular9999999z 9 @9 @9n : %<B@J4 !|(~6 !|!Arial9BRegular9999999z 9 @9 @9np : %<u #9R9T9V9j @9Z9` d9bn : %<Jap9f9V 9j @9Z9` d9bn %"B@JJa !Bst 9D @9Hnx (znes (tca J !( %S) 9999n !B@J !BP  9D J9Hn J !(  4 67<(  Data Value 4 67<!!(f : 67<(  Frequency : 67<!!(fn0 (~ !Arial9Regular9 999999z 9 @9 @9n 4 %<!B@J (~: !>Arial9Regular9 999999z 9 @9 @9n !B@J (~b !fArial9 999999z 9 @9 @9nX : %<!B@J !( 4 %<!B@J !( l(*ng ~l0 Macro2 MacroA:A$B@J` B@Better Histogram 2$B@JL:L$B@J B@L9$,B@JChart 1 %B@ ! B@J l(*`better_20041112_2040.xls$nB@Better Histogram 3$B@J`/ Windows("better_20041112_2040.xls").Activate1 Macro recorded 11/13/2004 by Michael R MiddletonA:B$B@J !B@C1$,B@JA:B$B@J !B@C1$,B@JRegular9  F'g` $nB@ after activewindow.visible falseA@F PE''Most of this code was first developed using Excel's macro recorder.@''Then the arguments of AddXY above were inserted into the code.:''Much of the code is unnecessary and could be eliminated. Attribute VB_Name = "Module2AddXY" Sub ,(XStart As Double, Dep Bo _ ChrFreqMax ^St H)5 '''Most of this code w@as firdeveloped using Excel's macro rec@order.GThenDe argumentsUAl abov+ere insert(into9!MuchEeDHunnecessary and uld be elimina%iRange("A2:B3").Select ion.Copy ActiveSheet.Objs(" 1!4pArea3)SeriesCol#!PasRowcol:=xlumns, C Labels:=pFalsw7C!@ goryETruReplac"e New:=,pplicat>mmQBar8@8Visi@O:1(2VAIutW(BLTyp xlXYS,terp#u`A.AxisGroup<11 ; 2 With B:.Has (@A$<, xlPrim@^) 8%S`qnd=VavlF st Eqc^Axe%V.b= inimum zleIsA> [@Unit (Crosses"Cus`OA;0RrsePlotO!ޠ"3BZ@a$@"@@&w-P CFF?0IqI_%veW7M<@yo.Axes(xlValue)).MinimumScaleIsTru lMaxinorUnit"j/U@Crosses xlReversePlot OrFalsO^TypLarq'0LCgII )Dx?G.(Gɋ@Seriesle@on(1).n@ln(Nam%"ArialIn"RegularSiz1XStriketth_gYb SupcriplbsuOut\#|B{,B6')`u'H#Ik=t a .0uu._3R*WGZ .o6]BQmqR888S2@k%8Qj88PlL=lh?=?<cWinp.Visibla.@umns("A:B"kD.1*FiCRange("C1h 1` cel+ VBAWin16~Win32Mac VBAProjectstdole`MSFormsCOfficeu RefEdit ThisWorkbook| _Evaluate Workbook_Open(CreateMenuItemWorkbook_BeforeCloseCancel(DeleteMenuItem,g Sheet1Sheet2Sheet3 UserFormBetterHistogramn UserRange}Range NumAreas NumDataValues+OneCellXStartPXStepZ~XStopDataMing`DataMaxI_CommandButtonCancel_Click:CommandButtonOK_ClickRefEditDataRange ErroMsgBoxRSetFocusAreasKCount0v IsNumeric$*IsEmpty  TextBoxStarteValueK TextBoxStep TextBoxStopWorksheetFunction&MinMaxȲ(BetterHistogram]Module1b ToolsMenu`wCommandBarPopup  NewMenuItemCommandBarButton9 CommandBars  FindControl mId]ControlsKAddrmsoControlButtonnCaptionx ShortcutTextފOnAction Application* MacroOptions^MacrocHasShortcutKey! ShortcutKey$Deletex(BetterHistogramDialogShow ProposedNameoSheet6T WorksheetProposedNameOKJWi` WorksheetsUCase5 ActiveWorkbookMove>yafterX ActiveSheet%N BetterSheetCellsWorkbookk BeforeClose~;ItemzUserFormNLabelDataRange FrameScaleo LabelStart2 LabelStep LabelStopiCommandButtonCancelCommandButtonOKFLabel1,ClickNumber- _B_var_UCasea_Defaultj _B_var_Loop _B_var_Do UpperLimit_B_var_UpperLimit H bins_arrayHNumBinsGSheet4 _B_var_Set freq_array| BinsArray/ FreqArray; FormulaArrayΠCopyƿ PasteSpecialKPastexlValuesoSheet5 CutCopyModexlfalseY7 Histogram'' chartopject ChartObjectƹ ChartObjectsHColumnsp9RowsUTop5Chart? ChartWizardsSourceGGalleryxlColumn .PlotBy$ xlColumnshCategoryLabelshs SeriesLabelsth HasLegendBTitle~Sheet6Sheet7Module2cMacro1N SelectionZActivate| ActiveChart  ChartAreaSeriesCollection;:RowcolReplacef NewSeriesVisible ChartType? xlXYScatter) AxisGroupgHasAxis5 xlCategoryZ xlPrimaryu xlSecondary6xlValue b Ob Libr8ary:Q0Q2497D04E-D7D7-46F4-8F5E-4F921CC6E61EQDOCUME~1\MICHALOCALS@Temp\VBE"\E-exdf-.E .`M ~ Offic~Of@ic~0"1DF81C-5BFA-101@B-BDE5~AjA}421gram Files\VExcel0 97\C2O9`7.DLL2 8.0_RefE(ditR+fEi@/-.8A4485CD@*BF-4D6C-8222-02706C905FA@1E.% 2003\OFFICE11\" A% Control  ,0 s`F09A7CAE2-A4C2-414F4AF-355F0A8C9`FD4}#FE'fFsE@FC-S"ThisWorkbook.2*TiWBkbok H1""," %y""+"ShePet1h2bSE e Qt1 @S@ W  UserBetterHisto!i2.!erBbtPrHa t`gM a@i:aJ#( Module1@Main 2! duȠ1Ma`n0#$U6! '#2AddXY=)=Mh2AA dXY R%Y"rU~~~~~~~~~~~~~~c  there are at least two intervals.) OStart Value of histogram must be less than or equal to the minimum data value,  .* QStop Value of histogram must be greater than or equal to the maximum data value, #=h8+3qaG?,2qLa Better Histogram I FFMoveafterName Upper LimitValue Frequency .Here's where the BetterHistogram code will be.Sheet2Mv;Xw ſ@ -Sheet3CUBvIZ҃` J\`NFSheet42˭bCIƄlaiͥLGʴ:fR bins_array data_array !=frequency(data_array,bins_array)Sheet5(PƒO)cBL,Gyި!FLeftTopAdd Better HistogramFSheet6kfeJ7Fr呀lJ+]IIQ6n2ASheet7Y}Mw| 4-_ȅ,JJbUcKwvKǟuk4FP\Ea&DFWorkbook Workbook_OpenWorkbook_BeforeClose F F  F 8Cannot add Better Histogram menu item. Use Ctrl+Shift+H. Better &Histogram F Ctrl+Shift+H BetterHistogramDialog HControlsDeletefGMĨJ[אd_I-F@P H -I0eD0@@)@. A2:B3Copy Chart 1 ChartObjectsActivatePasteRowcol SeriesLabelsCategoryLabelsReplace NewSeries ChartSelect ChartType AxisGroup CategoryTypeBorderWeight LineStyle MajorTickMark MinorTickMark ColorIndex TickLabelPosition MinimumScaleIsAuto MaximumScaleIsAutoMinorUnitIsAutoMajorUnitIsAutoCrosses CrossesAt ReversePlotOrder ScaleType MinimumScale MaximumScale MajorUnit better_20041112_2040.xlsF H27 QWWOxx_MarkerBackgroundColorIndexMarkerForegroundColorIndex MarkerStyleSmooth MarkerSizeShadow TickLabels AutoScaleFontFont Arial Regular FontStyleSize Strikethrough Superscript Subscript OutlineFont Underline Background InvertIfNegativeInteriorOverlapGapWidthHasSeriesLines VaryByCategoriesHasTitle Data Value AxisTitle CharactersText BoldBold Stop Recording C1 Sheet1GE/K)^0rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~1 9KbOz f  a &A& a  I)NQNa  `  A i NN  JK  ThisWorkbookSheet1UserFormBetterHistogramModule1 VBAProjectF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dllVBA Y  PF +C:\Program Files\Excel 97\Office\EXCEL8.OLBExcel q`0FC:\WINDOWS\system32\stdole2.tlbstdole ip=H:i@{6)/nC:\WINDOWS\System32\MSForms.TWDMSForms aA.E .`M XQ.E֕t}57 2C:\DOCUME~1\MICHAE~1\LOCALS~1\Temp\VBE\MSForms.exd iAL-[DR4C:\Program Files\Microsoft Excel 97\Office\MSO97.DLLOffice YsrKmnL) TextBoxStop!-6S`  F?C:\program files\Microsoft Office Pro 2003\OFFICE11\RefEdit.TWDRefEdit i  EFyzv`0OP1J5 2C:\DOCUME~1\MICHAE~1\LOCALS~1\Temp\VBE\RefEdit.exd )  Q CreateMenuItemDeleteMenuItemBetterHistogramDialogBetterHistogramFF  szF qR/HS 6F21+~vLdmi7}8C^S;y7:DjIm_?ҋB ` ȏ[qJ eUserForm!O6oD F3Dynamic  "-?@LabelDataRange?F` FrameScale LabelStart LabelStep LabelStopRefEditDataRangesճDU. q0{lFWJOCommandButtonCancelCommandButtonOKLabel1 TextBoxStart TextBoxStep FCommandButtonCancel_ClickCommandButtonOK_Click 4@F;(AP+\: F;? /@4gDF Worksheet @FhF VBA332.DLL I xfĤIx8< IS  Data Range is not valid.`F /Data Range must be a contiguous range of cells. I1  I.  4All cells in Data Range must contain numeric values.ҋB ` Start Value must be a number.ƏYl| Step Value must be a number.F Stop Value must be a number. )Start Value must be less than Stop Value.( LEnter Start, Step, and Stop Values so thatwiF>Nvc A:A Better Histogram 2 L:L L98TE:1wҼCJ`C@FJ]PY)}MhXMSheet8GMppMte#]HYZMfo+R!Sheet90Oq6>ML%M#HG Fy[-&r(Macro2YaF|H@TSheet10ك2kLAuLX Kcvj**JM#FSheet11?*x^2L8RGeNlLH=KuWGD$vLDNs{Sheet12PL,uA<{\ ChartFreqMax = Sheet13TBn5M|rZC>XPH4Sheet14^$'@Uz$Inu8EJ{u A:BColumnsAutoFitSheet15* FȞ76=6߅{"R>IySheet16]nMq 3GK( !before activewindow.visible false after activewindow.visible falseSheet17IW_gIFA?I p%fSheet18|(A?@ABC\EFGTIJKLMNOPQRSDUVWXYZ]^`abcdefshijklmnopqr_tuvxyz{|oPCompObjpCompObjaVBFrame:bedded ObjectForms.Frame.19q( Start Value:q5Tahoma( Step Value::q5Tahoma( Stop Value::q5TahomaH,5TahomaH,5TahomaH,5TahomaLH   } Histogram HoRoot Entry F@[rBWorkbook!h _VBA_PROJECT_CUR"`J t@E tVBA `J t tMaxFreq ChartFreqMax ChartFreqStep Da  Fa  QMa  M {$H @o}@8KEFҋB `EF04(Cancelq{uTahoma(OK{uTahoma( Data Ran n``Microsoft Forms 2.0 FrameEmrizontal AxisR KQDBTahoma, 2<LabelStart>, 2<LabelStept, 2<LabelStopt( 4TextBoxStart ( 4TextBoxStept "( 4TextBoxStopt q ge:.q5TahomaH$5Tahoma4(#Check www.treeplan.cMicrosoft Excel@@I@iHZj՜.+,D՜.+, PXd lt| 11 Sheet1  Worksheets 6> _PID_GUIDAN{8F3A857D-EABC-4C54-80E5-3023E94E3F85}DocumentSummaryInformation8CompObjf FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q