ࡱ>  c ~{b  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aefgpijklmnodqrstuvwxyz{|}~Root Entry Fd5Workbookh|XCBTK_VBA_PROJECT_CUR"ROd5d5'FRI - general utilities Ke1 pComplex LookupL'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!lookstuffsub((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(   pSet Display to USERN'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!SetEditDisplay((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(??G pClear StatusbarN'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!ClearStatusBar((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(wo~7v p"Set Screen to match selected cellsT'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!FitSelectionToScreen((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(p`@3CCC p!Go to last REAL cell in the sheetP'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!GoToLastRealCell((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!9!y "Move activecell to Top Left cornerL'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!MoveTopRight((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( pFill to adjacent lengthV'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!FillFromAdjacentColumn((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(?______ pFill Down if blankL'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!Changeblanks((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(??????#?? mFind next VALUE downQ'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!FindNextValueDown((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? pFind a string in ALL worksheetsS'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!FindInAllWorksheets((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(   List ALL names in the workbookI'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!ListNames((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( p$Locate the nth highest cell in rangeI'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!findlarge((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(aaaaaaaaaa Paste selection with VALUESK'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!PasteValues((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( m One decimalJ'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!OneDecimal((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(gccg pText to NumberE'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!psadd((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(???????}111 #Multiply all CONSTANTS in selectionQ'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!MultiplySelection((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(qcGGcq ;Add Header to Current sheetCLabels the workbook with authors name and date and workbook detailsW'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!label_sheet.label_sheet T&Datestamp WorksheetO'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!DateStamp_sheet(ww"!p(?‡?; Wrap Text in the selected cellsN'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!WrapTextToggle((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___www p(-P T 4  Print Pivot tablesR'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!PrintAllPivotPages((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(~1~5    Switch PanesP'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!CycleWindowPanes((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(  Create DatabaseN'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!createDataBase   Hide text in cellsH'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!HideText((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(   Hide Numbers in cellsR'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!HideNumbersInCells((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( Save and Close active workbookW'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!SaveCloseActiveWorkbook((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(;w yAChange Current DirectoryV'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!ChangeCurrentDirectory((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(@C_@C_?pCw@C_@C_? "Close active workbook - DON'T SAVEY'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!NOSaveCloseActiveWorkbook((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(;w CK'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!togglemerge(ww"" """ "" """ "" """ "" """ p( sPaste labels in XY plotN'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!setlabelvalues((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(_[}x} k&Paste labels in ALL seriesW'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!setlabelvaluesallSeries( " "" ""p(dgAO~~ sCreate XY (Scatter) ChartH'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!createXY jSwap X & Y axesH'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!swapaxes((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(?x>8<8>88X?>?? }&Save active chart as GIF fileR'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!SaveThisChartAsGIF(wwwwD@D@DD@D@Dp@Dtrqqr''rqpr''qqtDp@@D@Dp(I$I$x$Hx'y'? t&Fill Down,Up,Left & RightQ'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!FillAllDirections M'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!Button1_Click sDisable Chart Point DetailsQ'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!ChartPointDetails(  "!"!"!"!p(p Xxxhxx xx   '&statistica - create regression formulaa'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!CreateFormulaFromStatisticaOutput(www"" " "3003333p(# 0 0`  Create List from TableV'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!CreateColumnsFromTable(p(^RI^RI^@I B &Select Visible CellsR'C:\Program Files\Microsoft Office\Office\LIBRARY\fpagenrl.xla'!SelectVisibleCells(p(_SX_DB_CURQd5d5VBAP"d5 {d5Text to Number9=lookupstuff2$  !"#%&'(*+,./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~  (  , *                                                     ` $    $    $   (  Comma [0]_APIComma [0]_ASCIIoutDComma [0]_ASCIIoutMComma [0]_Constant Data Comma [0]_DCComma [0]_Demo_Of_LEDBarComma [0]_ExampeVBACodeComma [0]_File FunctionsComma [0]_fredtestComma [0]_LEDBar Comma_APIComma_ASCIIoutDComma_ASCIIoutMComma_Constant Data Comma_DC!Comma_Demo_Of_LEDBar"Comma_ExampeVBACode#Comma_File Functions$Comma_fredtest% Comma_LEDBar&  Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\p Fred Cumming Ba=H  !"$%&'()* ThisWorkbookSFRI=u&t8X@"1Arial1Arial1Arial1Arial1Arial1.Times New Roman1* MS Sans Serif1Arial1Tahoma"$"#,##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\);_(* "-"??_);_(@_)"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.0050_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-[Red][<5]0;General[Red][<5]0;[Black]General\ 0.0 0.00000 0.0000 0.000#,, #,,"000,000" 0.000000 "";Generald/m/yy\ h:mm:ss 0\ % 0\ "%"d/m#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-#,##0"DM"_);\(#,##0"DM"\)##,##0"DM"_);[Red]\(#,##0"DM"\)$#,##0.00"DM"_);\(#,##0.00"DM"\))$#,##0.00"DM"_);[Red]\(#,##0.00"DM"\)@;_ * #,##0_)"DM"_ ;_ * \(#,##0\)"DM"_ ;_ * "-"_)"DM"_ ;_ @_ @;_ * #,##0_)_D_M_ ;_ * \(#,##0\)_D_M_ ;_ * "-"_)_D_M_ ;_ @_ HC_ * #,##0.00_)"DM"_ ;_ * \(#,##0.00\)"DM"_ ;_ * "-"??_)"DM"_ ;_ @_ HC_ * #,##0.00_)_D_M_ ;_ * \(#,##0.00\)_D_M_ ;_ * "-"??_)_D_M_ ;_ @_  General_)\$#,##0\ ;\(\$#,##0\)\$#,##0\ ;[Red]\(\$#,##0\) \$#,##0.00\ ;\(\$#,##0.00\)% \$#,##0.00\ ;[Red]\(\$#,##0.00\)m/d #\,##0.00 \$#.00 %#.00 #.00 #\,##0. \$#. 0.000_) 0.0_) 0.00000_) 0.00_)0.0000000;"DM"0_) 0.0000_) 0.000000_) 0.0000000_) 0.00000000_) 0.000000000_) 0.0000000                + )    &     &     (    '(Currency [0]_API)Currency [0]_ASCIIoutD*Currency [0]_ASCIIoutM+Currency [0]_Constant Data,Currency [0]_DC -Currency [0]_Demo_Of_LEDBar.Currency [0]_ExampeVBACode /Currency [0]_File Functions0Currency [0]_fredtest1Currency [0]_LEDBar2 Currency_API3Currency_ASCIIoutD4Currency_ASCIIoutM5Currency_Constant Data6 Currency_DC7Currency_Demo_Of_LEDBar8Currency_ExampeVBACode9Currency_File Functions:Currency_fredtest;Currency_LEDBar<Normal_betweendates=Normal_CalculateColumnName>Normal_Change Blanks'?"Normal_Colour Cells Based on Value@Normal_Constant DataANormal_DIRectory retrievalBNormal_Fix Other SubCNormal_fredtestDNormal_GoToLast Real Cell"ENormal_Import from text filesFNormal_lookupstuffGNormal_Module1HNormal_Module1 (2)INormal_Module1 (3)JNormal_MsgBox for chartsKNormal_MsgBox for charts_1LNormal_On Entry Do StuffMNormal_Proper CaseNNormal_Run DOSONormal_Shift_controlPNormal_Text to NumberQRStandard_ASCIIausDSStandard_ASCIIausMTStandard_TabelleUStandard_Tabelle (2)VStandard_Tabelle_18 ``i̜̙3f3333f3ffff333ff333f33f33BBB\QSheet1`d+Macro1,Sheet1oB Auto_OpenBMsgBox for chartsMCFit Selection to Screen CSet Edit or View Display+DGoToLast Real CellD Change Blanks EFillFromAdjacentRangexE label_sheetE LookupdialogzS Lookstuff subS lookupstuffXT Edit SFRITClear Statusbar6UText to NumberUPasteSpecialAddVWait Meter ModuleVNext Value DownV FNL DialogFbFindNthLargest"bNames In Workbook - dialog"nNames In Workbook - moduleMo Window PaneoPrint All Pivot Pages+p Tool Tipsp Format Cells qCreate DatabasexqScatter Dialog$y Swap the Axesy Hide the textzFile FunctionsqzDisplay positioningz UserFunctions@{ DeleteBlanks{ Shade Rows$(ConcatenateRangeDelimited Deleteselected)ExtractFromDelimitedString FNLonbuttonnow: OnLBAction percentage:! PrintAllPivotPages setListsSFRICodeMakeCSV SplitSFRICode start_time:P$ / 3  @@  M69This sheet is needed to maintain the SFRI function group.atypecostbvariety Sum of costTotal Grand Total a,b,c,d,e,fa - b - c - d - e - f)a - ball - could - drop - enywhere - fastDeBaOb3nd+2apLCoverHeightLogging SpecialCodeSFRItype CodeErrorDeBaObnd+p2aSCGHSpecies1Species2Species3Species4CF-irregCF-regthCF-reglrSPECIESCOVER IRREGULARCF REGULARCF REGROWTHCF IRREGULARHT REGULARHT REGROWTHHT HEIGHTCLASSCFSTRINGLOGGINGSPECIALSPECIES1SPECIES2SPECIES3 CROWNWIDTH REGENYEAR TREATYEARDeBaOb4nd-2atB ReBa3nd+2apL2$ L%~$% h%G_!&l~&r&Gforest\Utilities\xl97tools\fpagenrl.xlaa]Sheetpd?3$ưwww`T033к[w?3`T03 pkk(H0!kT01004zm0$0 E000߿0!k10start_timeodeSVgesedStringtilities\x{ 0rl]Sheet153i#wd p3 53ĺ\w*3\w53i#w 3+3,w X333$@@֜z0 P d{0cT0` t }0RT0лz0 ¼%00 ` 00Q` 0l0l6 @ /,,  dMbP?_*+%&A Page &P"P3?? UT0 ! AJB7[>@  [/>  dMbP?_*+%:7&LJ:\b-forest\Utilities\xl97tools\fpagenrl.xls - Sheet185&CPrepared by Fred Cumming 16 Oct 2002 14:25&RPage &PMN\\CTNW03\Q-VP56CpsXXLetter 9''''"dX??U} m}  } }  T0x  G GT033k0    Y _  ~ ?  ~ @ WX  ~ @ Y X  ~ @ W~ Z@  ~ @ [~ \$@  ~ @ ]~ ^(@,`,}#%;Ba;a;1-`8}#%crBb a 2-`D}#%crBa a 3  + P}#$ ,Bc  - T} #$  - Be  - X} #$  - B enywhere  .l}# $HEADINGBurSpecies1,Species2,Species3,Species4,Cover,CF-irreg,CF-reglr,CF-regth,Height,Logging,SpecialCode,SFRItype,CodeError  'T} # $B'$De,Ba,Ob,,3,n,d+,p,2a,Logging,,SCGH,        !               ~ @           " # $ % & ' ( )  *  +  ,  -  w. / 0 1 2 3 4)}# $$@B DeBaOb}"# ,,@B4}n}d-}t} not found}2a}  not found } 2a } nd-t }  No Logging  }  $}De,}Ba4}Ob<}!error - no crown width numbers|}none}none 5)}# $$@BReBa}3}n}d+}p} not found}2a}  not found } 2a } nd+p }  Logging  }   }Re }Ba } }!error - no crown width numbers` }nonel }none    0 F*BFFF==EGNd =( (   X  S  ]F! xx  6XLkCC@ p],BXLk0[Kk9 $< Button 2<1=  PivotTable1Data        Sum of cost  O> @ Sheet1 &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P  H  dMbP?_*+%i&A Page &PMHP LaserJet 4V/4MV??B dk &۝@XT&" d??U  (  r  0[k@A@ ?']@[k  < Lookup Stuff< rr   0 \k@A@ ] @ \k<  < Lookup value< rr  0l\k@A@ ]@l\k  < Lookup Table< rr  0\k@A@]@\k <Column to look in< rr   0,]k@A@!2] @,]k4 <Column to return< ff  c $]k?4>]]k $ <OK< ff  c $^k?4>]^k $<Cancel<   R^kA@lookstuffarea 7 ]8 b^k,[`^k9  <'Tree Information'!$E:$K< uRR  s N0_kA@$lookstufflookcell 7]& `0_k <$C$2< TT  H@ALookinLB$%]  DBHOBSpecies Top Pt est Sum_top_ptTREEMAPHollows PlotAndTree  H@AReturnLB".$%]d!  DBHOBSpecies Top Pt est Sum_top_ptTREEMAPHollows PlotAndTree>"@ &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P  W  dMbP?_*+%i&A Page &P"P??U0 (  r  0lk@A@ ? ]@lkt& <Find the Nth largest Value<   s Hlk?FNLButton_stop4 >]lk' $ < Go there!<   Xlk@A@"FNLText_elements - ]@lk'  <!Number of selected cells is 1648<   s DHmkA@FNLEB_number]& `Hmk( <1< rr  0mk@A@ $n]@mk) /<0Enter the number in the list you want to go to < /  Nnk?FNLButton_next)7],nk(*[mk9 $<Next< k  Vnk?&FNLButton_previous)7],nk*[nk9 $< Previous<    RDok@A@FNLText_value&] @Dok+ <Cells VALUE is 40.25214<    Vok@A@ FNLText_address'] @ok, <Cells ADDRESS is $D$890< ff   c $pk?4&9,] pk\- $ < Button 11<   >"@ &A Page &P"Pdrop??st> P  c  dMbP?_*+%i&A Page &P"P??U@ n(  r  0tk@A@ M:]@tkT2 <List Names in Workbook< ff  c $|tk?>K ]|tk2 $ <EXIT<   Z@ALB_GlobalNames %<]N3[ tk9   X@ALB_LocalNames#<.]Np4\ uk9 rr  0uk@A@% ]@uk85  < Global Names< rr  0Lvk@A@ +"]@Lvk5  < Local Names< ~~   s <vkA@EB_Local0K8%]& `vk6     s >wkA@EB_GlobalK%]& `wkH7     Lwk?Delete_Global>K], wk8\@wk9 $<Delete <    Jxk?Delete_Local>*K.], xk84\wk9 $<Delete < rr  0txk@A@=#K)I]@txk9 <Press to delete selected names< rr  0xk@A@> Ln]@xk@: <Press to delete selected names< >"@ &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P  Er  dMbP?_*+%i&A Page &P"P??UP(  r  0āk@A@?&]@āk< <Create a Scatter Plot< ff  c $8k?4> ]8kL= $ <OK< ff  c $k?4 >]k= $<Cancel<   s HkA@EB_destination!1#]& `k>  ||  s :dkA@EB_Data1n]& `dkD?  rr  0k@A@2I]@k@ !<"DATA Select the chart data cells< !rr  0k@A@2!]@k@ Q<RDESTINATION Select the range where the chart will go. (You can move it later) < Q>"@ &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P &A Page &P"Pdrop??st> P "Pdrop??st> P "Pdrop??st> P &A Page &P"Pdrop??st> P xfv(6 << <ӸC $*\Rffff*993ab04746 @`@ iB`iD iFiH8@$ME d >h *  p B h0p6  ^ This function does lookups from named areas using any column in the range as the lookup field@8 and returns the appropriate value from any other column# Written By Fred cumming , May 1996 Does the equivalent ofi =INDEX(lookup-table,MATCH(value_to_look_up,INDEX(lookup_table,0,column_to_look_in),0),column_to_return) F B$L%N%P.J D J %T'R R H  B$L%V%N!2'@fAttribute VB_Name = "lookupstuff" ' This function does d from nd areas using any column in the range @ = field '.d r@eturns,appropriavaluegUo?r[:Written By Fred cumm, May 1996%Dyequi(ent oft' =@INDEX(J-table,MATCH(=_toB_ _up,_0,tin)X,0) l)6F6(lut% As Sng, match?Ɂ Vant 6 Integer, 5 Set l+= R4).Offset(0- 1).Resize(,! nAp plicaA~.M%(&,, 0H4 Cells(@Dn  /Vz End EJ!N    rU~}  0  0 P  0  aLookstuff sub8__SRP_a$__SRP_b!)Edit SFRI#-9 returnLB7hB@t r!vF there is no line above so use the current line set offset number to 0'xa'xh z r!$!" x z r%N%P!2Field z$j'|a8 x z r%N%P!2'|h |lookinLB7hB@~Klookrange.Offset(offsetnumber, 0).Resize(1, lookrange.Columns.Count).Value) |returnLB7hB@~Klookrange.Offset(offsetnumber, 0).Resize(1, lookrange.Columns.Count).Value) znl&this sub has been deleted by mistake!!A@nlAttribute VB_Name = "Lookstuff s ub" ' Thisp pastes the complicated formula into8activFell using*input fromdialog ' box upTo run it highl t7cUs you wanoc andAmacro LOOKSTUFFSUBs' =IN DEX(lup-table,MATCH(val@ue_to_ _(up,_0,@columni n),0) re turn)6Written by FrCummxv;(<<< <ӸC  `@(( 14$&Macro recorded 4/10/95 by Fred CummingG$ p$`$$0$p($(p$p$X$H$H$0$`$`C:$`54$H$$x0$pi2$pHME-   . P X"` *h  hp     & &@X`hx  2  l(   ,  Text_to_number' Macro recorded 4/10/95 by Fred Cumming13$ Application.Calculation = xlManual124 (0>3meter' A@b ! !" !$!"'9  '&c'('*b Application.StatusBar = "Converting text - done " & Int(countcells / numberofcells * 100) & " %" ,$ ,B@J 0!2'. . .$4 .$6 .U 0(8h MsgBox "is a text string"a MsgBox "not a text string" .$: 0(8hh ( '( * '* ( d'< * &  <A@'*h0, If celldisplay > numberofcells / 20 Then= celldisplay = 0"e Application.StatusBar = "Converting text - done " & Int(countcells / numberofcells * 100) & " %"( End IfP (>8& Application.Calculation = xlAutomaticlAttribute VB_Name = "Text to Number" ' T_to_nTDMacro recorded 4/10/95 by FrCu`mmingRS0ub t(),  .Description#nSPro cData_Invoke_Func/ \n14v Applica<.CalculxlMan ual ScreenUpdngFalsedisplaytypmet( D SshŃ , 0ofcells+ SelecLRows.Count *  Colu|mn @" '/ 1cAEC#@ ';tat usBar@"Convert{Bx - done " & Int()H/ * 0) " %^ For Each oA#@6A . ;A7 B valuEWAFveC/.&VCIf <> "" Then @Not (Iseric(3B)) A Ism@eH  @2mGC  Endǁ5 MsgBox "is aQsngEEa  n@.R "E." iB+ 1#$DFCompl@^@dPerce@U= ( Ac d6 >BcGI.h  AGB^ 2+W/ 20C2!#f *ISffs}10f6pNext`I'AAutomc , May 1996Sub w9(܉ .ProcDataInvoke _Func \n14 WithWorkb@:.D^Sheet,s(B^"@ If .Show @ enc Ms4gBi"h^s accep@RERange(.Draw6Obj ec.area").Text).COsunt n k=W A ADBmatchqList8eD inLB V_ r  AC .B"=index(" +9+ "2C 0,Str(E/)@"BE*GuSel1i@on.Row. (> 1"= Fi`llDow?AElseB @uS†Hcan*ed E9nIf!O G!Z[set!-s? [ZZĒ at0tachire0fere`, sE% Qdow@' It re@l? of field@o@@h @   .`a  aooko 0tb>rai Gjgja .YRemoveAllItemsO#BYQ!TH'@#G# 're 2no line ab soebcur3@0/fnumPber 80 off= fQ $-1MBPFor i`ccOb(I, - 1).Resize(1,{"@i+text@"FJ" & Avi em_Sd&#i@Add (E % '(, 0)N%y(%/ /+/!2{d+:NQiI I EditSFRIPLoj w_I/w`PeRthas bedH 1 mPGake!! p ormuXUB $X`$rU $ `aq$ `aq$ `aqpD xv/ (<<< <ӸC p `@ 14( $W$hNT$@$$$P$P$P$8$(x v (6 << <ӸC $*\Rffff*7e4301b890p ZP`@@ h 14 p`H # 14 ` AC: 14$P X8$X PX$0PX$$PX`$PX$ PX$pPXP$PX$PX$`PX@$P82X|$PX$PPddX0Z$PX$PX$@PX $PXp$P(Xme $0PormuXUB $PX`$8 MED d h f p (X "  & J ($Hpx"( P Xx "  > X 0 H(h L ( 0@H2h. R x R  " 0HX] This sub pastes the complicated formula into the active cell using the input from the dialog box Lookupdialog` To run it highlight the cells you want to paste the formula into and run the macro LOOKSTUFFSUB i =INDEX(lookup-table,MATCH(value_to_look_up,INDEX(lookup_table,0,column_to_look_in),0),column_to_return)" Written by Fred Cumming, May 1996 Lookupdialog \%^5` MsgBox "dialog was accepted"D MsgBox Range(.DrawingObjects("lookstuffarea").Text).Columns.Count lookstuffarea7d!f'blookstufflookcell7d!f'flookinLB7h!2'FreturnLB7h!2'H=index( b ,MATCH( f ,INDEX( b ,0, F$j ),0), H$j ) 0(2 ! !" F B@lgaLookupStuff cancelledA@nhnxlpP8 This is attached to the reference area selection windowR It resets the list of fields to select from for both the selection column and the return column Lookupdialog \%^ lookstuffarea7d!f$L.rlookinLB7hB@t$(p$$@|$@$@ic$($X=T$P$P(`ME " (08@`psfri B@ 99n@ count_trees B@ lAttribute VB_Name = "Edit SFRI" Sub |xPlotSheets() >.ProcDataInvok@e_Funcp P\n14l A ctiveV.Unprotect ("sfri"f#With (Window .DisplayHeadings^True Outlin0End -Application.GoTo Reference:="count_trees\ xUtilities label_sheet=FillFromAdjacentRange,Change Blanks3:Parter eZmq "2"Incept value i!the firstNDim Sdata As !wnt = S.V# I f C]s.Count <> 2 OrRow Then MsgBox "You need t2o~ arange (with more t(hanr)) starting at e cell lab( '' Exit End If{E=l(1, 1)s "" .J &b at(MA2), "0.0"|Else o>|AsBAA5 ?  j` Right"~jc#<,>Next .2A<& " +`jGa *FL" iAa'Suad TargResize.  (xlTo).@Offseta0sD &? (0S. c` C'VisiCs!'d on4lyv#s ~f `CbT hcbe u~s @ak"fil "for o@r funb``New=@RG$ y.A ddres  Each ia@F b@As32jIn$@KiA.HeQ)P-0G/N n?t = )f7!(Un (~,#.'-' AC.#")t$9b $X$X X  @ @ @ @ oWholes= MsgBox(" s ALL s inJ?", vbYesNo, "DATE STAMP"`vIf  The@ For Each iB In nhsC‡ C.ӂ@@p.@aD@6(Now() *d mmm y hh:mm*`M.xD(DNextd'@lse%$_\h%?hB]u&%%?f%%%%!If VQj 2b ' ''etc' can also be achievby :-?select|olumn o f}s at requir|%x(d$F5 / special sek0zsBl, inHC= {upard} {ctrl &@cer}, c*and pastexASÕ() DGversion mŘ14/1L0/@8de2with EXCEL97 XL5 Dim0 As VariantDPartNovTempnR@Integer, nCol @App licat*.ScreenUpdngFwe stTimerIf V:Like "8*R"en '7 97@'get?dĆGBAn@eay# C3= SCox v<hPamhen!8Off/(-1, 0)oCB6H%Z'@a;n~o`D!F9D;  - $8Clear Statusbar /VF GoToLast Real Cell&ASet Edit or View Display2<Fit Selection to Screen0E| v(<<< <ӸC p `@ 14($$hp$@$$n $Pever$P`$P$8xO vk ?@1 Foo@"Prepar@p@n!:UserF&DRightH9 &PDEVB$AOAutomRcL  AD@fStampãAD$($(p$$@$@$@$(X$xv'(<<< <ӸC  `@"" 14ot F$'Macro recorded 28/08/96 by Fred Cumming$ p$`$$0$p(>$(p$p$X$H$H.$0$`$`$`$HFSu$x000$p`"$pHME2   . `P ( & P P" X ` p $$ @ 0@H P<h     B0 x   Macro1 Macro( Macro recorded 28/08/96 by Fred CummingZ This process fills the current column with the value of the current cell to the extent of" the data in the adjacent columns. It looks left first then right.I If both adjacent cells are blank it fills down in the current selection. .nction 0B@J5ea22e . 0!F'`F'ghade 0!F'`F'g'   0%N!2 0%N!2' tr(i) hh  ge.Off 0%N!2 0%N!2 ' hHh@  ! !" . B@Jt[@ B@l l[ha  0%NB@J !$!"  0  0%$L%N%PB@J B@l hp B@JlXPϲAttribute VB_Name = "FillFromAdjacentRan ge" ' ' Macro1  recorded 28/08/96 by Fr CummingTThis process fts the curru column withvalue of $ell Dtoext7of\Idata 4inaVs.$It look@s leftArstn rightf bo@8s are blank ills down6aselection% Sub Cs()  Ɠ.Descrip)Ղk!.PbDLInvoke_Func \n14 Set wholeF7@SE: A@=veCJ.Cstartc@O If CF@ 1 The qryi= False Et0TrueC256xKEdiD\0C ( KOffset(0, -1).V°<> "`" AndI; 1' ll#-1DE@I@_$N2   Q.Rows.Count > GO$ XT Y.!qD{,OV[= .)+ B(,#)A (xl)) . - Resize(,MfsK  xv [(<<< <ӸC 8$ 14$`, nu` $$@8 v`@>`, ` `l `n`p `((thanXHp$``$8$X$P$H$$H$@$8$`0$($ x$p$hPL$$0MEM . ^0 , , , ,  P &` N N "( 0P " P B X`hp   &  &  $@h      ( 8 HX `px $ F"    4  08 @ X' Modified August 31 1998 - Fred CummingW This sub changes blanks into values from the previous row if the current cell is blank% ie this a 1 to this a 1% 2 a 2% b 1 b 1% 2 b 2 etc This can also be achieved by :-G selecting the column of cells that require than blanks to be changedG F5 / special / blanks seklects all of the blank cells in the column = {uparrow} {ctrl &enter}* select column and pastespecial / valuesZPZh ( ,  ,$ ,!v F ,%N!2 ,(2g Else Partno = cell.ValuehlZZ Z8ZPh ( t'r !t8* EXCEL 97 get the selection into the array !2'l for each column in the selection p lfor each row in the selection n l n p$l  n p+la n p$l'h n pX$Pe ch$P(`ME "   ( (>l`XAttribute VB_Name = "Clear Statusbar" 0Sub Ba`r()  6.ProcDataInvoke _Func \n14d Application.X!False!End z xv? chinson e-mai l: sh@d@zn.com0El Paso, Texas. resume: http://www.scguild6/usr/1174I.html GRunning Excel 7.0 under Win 95 Da 60-MHz Pentium with 16MB @of RAM"AlEjulear(Delphi Develop%)2.fo-doDws//NTBThe effect)liberty to individuals is, thatey may do }the*yAp