GREATools Actuarial Shareware

Home Help

GREATools412 Functions and Subroutines

Contents

Updated: 2/8/2003 3:06:59 PM

Details by Module

• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
• Private Sub Workbook_Open()
  Fires menu creation macros. utilitiesMenu False ' do not force a reinstall

• Private Sub cbCancel_Click()
• Private Sub cbReplace_Click()
• Private Sub cbWorkbook_Change()
• Private Sub lbQueries_Click()
• Private Sub obConnection_Click()
• Private Sub obName_Click()
• Private Sub obSQL_Click()
• Private Sub UserForm_Initialize()
• Private Sub setup(wb As Workbook)

• Private Sub cbBMP_Click()
  make a decent bitmap
• Private Sub UserForm_Initialize()
  set up all the common pieces
• Public Sub prefobDemos()
• Public Sub prefobSurfPlot(inRg As Range)
• Public Sub prefobSurfPlotVar(inVar As Variant)
  Use a variant rather than a range to initialize. Used in other code.
• Public Sub prefobCatVis(inRg As Range)
• Public Sub prefobHist(inRg As Range)
• Public Sub prefobBivDist(inRg As Range)
• Public Sub cbRefresh_Click()
  ' update the screen
• Private Sub cbk_CatVis()
  ' cat visualization
• Private Sub cbk_Histogram2d()
  set up for two dim histogram highlight n x 2 and r x s ranges
• Private Sub cbk_SurfPlot()
• Private Sub cbk_Demos()
• Sub cbk_Bivariate()
• Private Sub cbDone_Click()
• Private Sub cbPrint_Click()
• Private Sub cbSnapshot_Click()
• Private Sub cbk_VolView()

• Private Function ptNumber(st As String) As Long
  map plot name to its number
• Function log2(n As Long) As Long
  figure log to base 2

• Private Sub cbCancel_Click()
• Private Sub cbGo_Click()
• Private Sub UserForm_Initialize()
  Dim xx ' As Workbook or AddIn

• Sub PoissonParam()
  Sets up a blank where you input the mean, it computes the parameters (in this case just equal to the mean) and sets up formulas for computing Pr(X=0), Pr(X=1), and so forth.
• Sub NBVMParam()
• Sub NBCtgParam()
• Sub NBVMbetaParam()
• Sub NBCtgbetaParam()
• Sub PIGParam()
• Sub PoissonPascalParam()
  A Poisson-stopped sum (mean theta) of negative binoimials, P, k.
• Sub LognormalParam()
  Sets up a blank, inputs mean and CV, outputs lognormal mu and sigma parameters. Shows you skewness. Blank includes f(x), F(x), LEV(x), Expense(x) = expected excess cost, and ME(x) = mean residual lifetime = conditional execess cost.
• Sub TruncLognormalParam()
  As above for shifted lognormal, T+LN(mu, sigma), where T is a constant shift. Using three parameters allows you to match the mean, CV and skewness. This is typically a very good fit to the true aggregate, once the claim count is above 20 or so. Highly recommended approach, combined with the various tools for estimating the moments of an aggregate distribution.
• Sub GammaParam()
  As for lognormal and shifted logormal, only for the shifted gamma distribution. Like the shifted lognormal distribution, the shifted gamma allows you to match the first three moments of a distribution. Closed form solution for parameters. Recommended in Actuarial Math book as a good approximation to aggregate distributions. Uses the Klugman, Panjer, Willmot parameterization.
• Sub ShiftedGammaParam()
• Sub TransfGammaParam()
  Severity blank for the transformed gamma distribution, a three parameter distribution without a shifting parameter (hence four parameter with a shifting distribution). Needs mathFunctions.dll. KPW param.
• Sub TransfBetaParam()
• Sub ParetoParam()
• Private Sub Agg7()
• Private Sub Agg8()
• Private Sub Agg9()
• Private Sub Agg10()
• Private Sub Agg11()
• Private Sub Agg12()
• Private Sub Agg13()
• Private Sub AggParam(nLog2 As Long)
  ' set up a blank for an aggregate distribution
• Private Sub sevSetUp(RR As Range, nn As Integer, Optional ExtraCols As Long = 0)
  sets up x, f(x), F(x), LEV(x), Expense(x), ME(x) blank for a severity distribution with top left hand corner rr nn is number of rows to format downwards
• Private Sub freqSetUp(RR As Range, nn As Integer)
  sets up x, F(x) blank for a freq distribution with top left hand corner rr nn is number of rows to format downwards
• Private Sub calcDisplay(w2d As Integer)
• Private Sub InsertValidation(rgIn As Range, strList As String)
  '
• Private Sub StatsOnly()
• Private Sub StatsFitOnly()
• Private Sub StatsHeadings()
• Private Sub StatsFitHeadings()
• Public Sub MakeEXEX2(andFit As Boolean, Optional andLabels As Boolean = True)
  ' insert formula for mean, cv, etc around EX, EX2,... ' optionally include TLN fit

• Private Function rc(r As Integer, c As Integer) As String

• Public Declare Sub UuidCreate Lib "Rpcrt4.dll" (ByRef u As UUID)

• Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

• Sub histogramWork(rg As Range, nBuck As Long, outArray() As Double, lossloss As Integer, buck As Double, mx As Double, mn As Double)
  Do a histogram of rg as input range into nBucks. Called by grtHistogram and grtHistogramOld
• Sub grtHistogramOLD()
  Deprecated version of grtHistogram
• Sub addChartWork(RR As Range, sheetName As String, formatString As String)
• Sub grtHistogram()
  Very useful function. Select a column of large losses (in any order), and another shorter n x 1 column range. Tool will create a histogram using n buckets (it computes a resaonable size for each bucket from the input data. Also adds a chart to the worksheet plotting out the histogram points. Data is input as values, not formulas, so the histogram is static and will not recompute.

  New version guesses a reasonable n, computes mean, cv and skewness of input sample, and provides a shifted lognormal fit.

• Sub addChartWorkEx(RR As Range, sheetName As String, formatString As String)
  Extended version of addChart with better formatting options.
• Sub pctCountPctLoss()
  Select a column of losses and execute. Adds percent of claim counts and percent of total losses to the right and a plot of these. Allows you to answer questions like "what percentage of total losses comes from the 5% largest counts?".

• Public Sub KR_Main(rgIn As Range, rgOut As Range)
  Sets up KR tree.
• Private Sub KR_TreePrint(r As uCKRTreeNode, rgOut As Range)
  Prints out KR tree, per C Programming Language p 140

• Public Function KR_AddTree(r As uCKRTreeNode, v As Variant) As uCKRTreeNode
  Adds a node to the KR tree, per C Programming Language p 140. Also called by design matrix code, so has to be public.

• Private Declare Sub airy Lib "c:\Program Files\Great\bin\MathFunctions.dll" (ByVal x As Double, ByRef ai As Double, ByRef bi As Double, ByRef aip As Double, ByRef bip As Double)

• Private Declare Function beschb Lib "c:\Program Files\Great\bin\MathFunctions.dll" (ByVal x As Double, ByRef gam1 As Double, ByRef gam2 As Double, ByRef gamp1 As Double, ByRef gammi As Double)
• Function nrBesselJ0(ByVal x As Double) As Double
• Function nrBesselY0(ByVal x As Double) As Double
• Function nrBesselJ1(ByVal x As Double) As Double
• Function nrBesselY1(ByVal x As Double) As Double
• Function nrBesselY(ByVal n As Integer, ByVal x As Double) As Double
• Function nrBesselJ(ByVal n As Integer, ByVal x As Double) As Double
• Function nrBesselI0(ByVal x As Double) As Double
• Function nrBesselK0(ByVal x As Double) As Double
• Function nrBesselI1(ByVal x As Double) As Double
• Function nrBesselK1(ByVal x As Double) As Double
• Function nrBesselK(ByVal n As Integer, ByVal x As Double) As Double
• Function nrBesselI(ByVal n As Integer, ByVal x As Double) As Double
• Function nrBesselJY(ByVal x As Double, ByVal xnu As Double, Optional retVal As Integer) As Variant
• Function nrBesselIK(ByVal x As Double, ByVal xnu As Double, Optional retVal As Integer) As Variant
• Function nrIncompleteBeta(ByVal a As Double, ByVal b As Double, ByVal x As Double) As Double
• Function nrGammaln(x As Double) As Double
• Function nrIncompleteGammaP(ByVal a As Double, ByVal x As Double) As Double
• Function nrIncompleteGammaQ(ByVal a As Double, ByVal x As Double) As Double
• Function nrGammaDen(x As Double, alpha As Double, theta As Double) As Double
  Gamma distribution, alpha-theta param, KPW A.3.2.1.
• Function nrGammaDist(x As Double, alpha As Double, theta As Double) As Double
• Function nrGammaLEV(k As Integer, x As Double, alpha As Double, theta As Double) As Double
• Function nrSGammaDen(x As Double, t As Double, alpha As Double, theta As Double) As Double
  Shifted Gamma Distribution, t-alpha-theta param.
• Function nrSGammaDist(x As Double, t As Double, alpha As Double, theta As Double) As Double
• Function nrSGammaLEV(x As Double, t As Double, alpha As Double, theta As Double) As Double
• Function nrTransfGammaDensity(x As Double, alpha As Double, theta As Double, tau As Double) As Double
  Transformed Gamma, KPW A.3.1.1 page 578, parameterize with alpha, theta and tau.
• Function nrTransfGammaDist(x As Double, alpha As Double, theta As Double, tau As Double) As Double
• Function nrTransfGammaMom(k As Integer, alpha As Double, theta As Double, tau As Double) As Double
  ' E[X^k] per KPW
• Function nrTransfGammaLEV(k As Integer, x As Double, alpha As Double, theta As Double, tau As Double) As Double
  ' E[min(X,x)^k] per KPW
• Function nrTransfBetaDensity(x As Double, alpha As Double, theta As Double, ggamma As Double, tau As Double) As Double
  Transformed beta, per KPW page 573.
• Function nrTransfBetaDist(x As Double, alpha As Double, theta As Double, ggamma As Double, tau As Double) As Double
• Function nrTransfBetaMom(k As Integer, alpha As Double, theta As Double, ggamma As Double, tau As Double) As Double
• Function nrTransfBetaLEV(k As Integer, x As Double, alpha As Double, theta As Double, ggamma As Double, tau As Double) As Double
• Function MedMom1(params, limit As Double) As Double
  ' specifically compute LEV(limit)
• Function MED_SevMom(params, layer As Double, attach As Double)
  First three severity moments of MED.
• Function nrLognormalDensity(x, mu, sigma)
• Function nrTLognormalDensity(x, t, mu, sigma)
• Function nrLognormalMom(n, mu, sigma, a, y)
• Function nrTLognormalMom(n, t, mu, sigma, a, y)
  Moments of truncated lognormal layer. Note there are problems with negative T's and the mean getting too big. These are dealt with below only when N=1.
• Function nrTLNExpense(x As Double, mu As Double, sigma As Double, t As Double) As Double
• Function nrLognormalLEV(limit, mu, sigma)
  Returns limited expected value of lognormal distribution.
• Function nrLognormalSavings(limit, mu, sigma)
• Function nrLognormalExpense(limit, mu, sigma)
• Function nrTLNFit(m, cv, skew)
  Function to return the truncated lognormal parameters.
• Private Function logni(n, mu, sigma, a, y)
• Function nrNegBinMom(RR, pp)
• Function nrAggMom(freq1 As Double, freq2 As Double, freq3 As Double, sev1 As Double, sev2 As Double, sev3 As Double)
• Function Phi(x)
• Private Function simpleUnif(n, a, lower, upper)
• Private Function vbGamma(x)
• Private Function vbBeta(r, s)
• Private Function vbGammaLn(x As Double) As Double
• Function nrSGammaFit(m, cv, skew)
  Function to return the shifted gamma parameters, T, alpha, theta.

• Private Sub cbCumulate()
• Private Sub cbDecumulate()
• Private Sub CumulateWork(direction As Long, inRg As Range, outRg As Range)
• Private Sub AStoStd()
  Converts an AS format triangle to a standard format triangle in the same range. Uses selection as the input and the output.
• Sub makeTrgFormula()
  Highlight a loss development triangle (rows years, columns development), excluding the row and column headers, and click development. Will produce a triangle of link ratios (using formulas), the usual averages, a row for your selections, and a blank for you to input exposures or premium, and your selected ultimate. Will over-write whatever is below the triangle, so be careful! Incredibly useful.
• Sub deleteLowerHalf()
  Deletes the lower half of a square range. Useful when dealing with triangles.
• Sub deleteUpperHalf()
  Deletes the lower half of a square range. Useful when dealing with triangles.
• Sub trgAvgsOnly()
  Highlight a triangle, e.g. of loss development factors. Will just put the block of averages from the Development command below the triangle. Like development, but only adds averages to a triangle of ratios.
• Sub DiagToRow()
  Diagonal of triangle into row; both ranges taken from selection. Triangle part must be square.
• Sub DiagToColumn()
  Diagonal of triangle into row; both ranges taken from selection. Triangle part must be square
• Sub DiagToRowColumn(RorC As Integer)
  Implements DiagToColumn, DiagToRow
• Private Sub VOR_SetUp()
  Set up Variability of Reserve analysis. As development, except it expands the set up to include bootstrap re-sampling off the triangle of link ratios. Allows you to determine rudimentary confidence intervals for ultimates. VOR = variability of reserves.
• Private Sub VOR_Simulate()
  Complete the bootstrapping simulation. Perform after you have made your selections (in orange). Will simulate an entire run-off from the triangle, with user input correlation between the accident years.
• Private Sub VOR_PerformBootstrapAnalysis(rg0 As Range, outRg As Range)
  Cut and paste from MALT site and then converted into Excel. rg0 is the base of the triangle. rg is the base of where you want the output written.
• Private Sub VOR_MakeMVSample()
• Private Sub VOR_BasicTrgFormulae()
  ' cut and paste out of GREATTools to make code independent ' added some extra dim's do that option explicit works
• Private Sub VOR_SafeAddName(nm As String, rg As Range)
• Private Sub VOR_MCVSk2Mom(mcvsk, mom)
  Irritating Moment functions:

         Moms = (EX, EX2, EX3)
         M    = mean
         CV   = coeff var
         V    = variance
         SK   = skewness 

• Private Sub VOR_Mom2MCVSk(mom, mcvsk)
• Private Sub VOR_MVSk2Mom(mcvsk, mom)
• Private Sub VOR_Mom2MVSk(mom, mcvsk)

• Private Function VOR_NiceColor() As Long
  returns a nice color to use in headings etc.

• Private Sub cbDisplayParamFile()
  Display current SADCo parameter file. Menu callback.
• Private Sub cbSetParamFile()
  Set a new default parameter file. Menu callback.

• Function SAD_GetDist(freqDist As Integer, freqCount As Double, freqVM As Double, sevParam As Integer, layer As Double, attach As Double, numL2 As Integer, unit As Double)
  Returns the density of an aggregate distribution in a column.

  1. freqDist - distribution number, see constants
  2. freqCount - expected claim count
  3. freqVM - variance specifier. This depends on the type of frequency distribution. For Poisson it is ignored. For Neg Bin - VM it is the variance multiplier, so variance = VM x Mean. For Neg Bin - Ct, it is the contagion value c, so variance = mean(1 + c.mean)
  4. sevParam - curve parameter number from built in list of parameters (see curve derscriptions)
  5. layer - layer of coverage you are looking at. Claim count is claim count into the layer
  6. attach - attachment point
  7. numL2 - log to base 2 of the number of points you want returned. So 10 corresponds to 1024 points. 15 is 32K, 16 is 64K which will not quite fit into Excel as it only has 64K-1 rows.
  8. unit - the size of the buckets used to quantize the severity distribution. The returned values are Pr(L < unit / 2), Pr(unit/2 < L < 3unit/2), ... The value of the unit musth be large enough to accommodate the entire aggregate loss distribution

• Sub utilitiesMenu(Optional force As Boolean = False)
  Sets up the main GREAT menu bar. Also calls the TPM menu bar set up routine.
• Sub deleteAllNames()
  Deletes all names in the active workbook.
• Sub deleteAllNamesThisWorksheet()
  Deletes all names in the activeworksheet.
• Sub deleteActiveName()
  Deletes the name of the selected range. Shortcut for Insert->Name->Define, select ->Delete. Very convenient.
• Sub removeInvalidNames()
  Deletes (and lists) all invalid names in the active workbook. Invalid ranges appear when the range they refer to is deleted. This is a very useful function.
• Sub listNamesAtActiveCell()
  List all range names at the active cell.
• Sub tableInfo()
  Call back to get table information on the selected Access database.
• Sub getTableInfo(startRange As Range, dbName As String, initialOffset As Integer, title As String)
  Utility routine for tableInfo.
• Sub runVBSpy()
  Call back to run VBSpy dialog.
• Private Sub makeNice(rg As Range)
  Like HeadingFormat, but moves range down one and does not set column width.
• Sub runQueriesAndCaches()
  Call back to run the queries and caches dialog.
• Sub shuffle()
  Applies a random shuffle to the range. Useful for performing a cheap-man's convolution: get two samples and shuffle them. Then add. Uses algorithm from Knuth, Seminumerical Algorithms.
• Sub deleteBlankRows()
  Highlight a column. Goes down each cell in the column and deletes the entire row if that cell is empty. This is useful for getting rid of hard coded sub-total rows, for example.
• Sub removeDollars()
  Makes all references relative by removing $s.
• Sub sm_CommaFormat()
  Comma format which is sensitive to size of number in cell and does not use - for zero.
• Sub sm_PercentFormat()
  Percent format 0.0%, as opposed to built in 0.00%.
• Sub sm_ScientificFormat()
  Improved default scientific format, 0.0000E+00_)
• Private Sub sm_HideFormat()
  Format selection as hidden
• Sub sm_PrintButton()
  Print button which inserts date, time, full path name, page number and number of pages, user name in footer automaticallyi. Also checks for legal or A4 paper size and prompts user to change to letter.
• Sub calcDisplay(w2d As Integer)
  Turn display on and off and calculation to manual.
• Sub setUpMyPerfectMenuBars()
  Sets up "my perfect menus": those built in menu command I find most useful.
• Sub restoreMouse()
  Restores the mouse cursor and status bar to their default values.
• Sub dataElementsM()
  Puts query table and pivot table information into spreadsheet at the active cell.
• Private Sub dataElements(wkbk As Workbook, baseR As Range)
• Sub whoami()
  Display active workbook full name in a message box.
• Sub whoamiSel()
  Write active workbook full name to the active cell
• Private Sub cbkVisible()
  Make all the sheets in the active workbook visible.
• Private Sub cbkSheetNames()
  Lists all worksheet names at the selection.
• Private Sub cbkCopyItemsDownColumn()
  Input column of selected values, the macro goes down the column and copies row headings to each row. For example:

    A  1
       2
       3
    B  1
    C  1
       2
   

  will be replaced by

    A  1
    A  2
    A  3
    B  1
    C  1
    C  2
   

• Private Sub cbkUniqueFreq()
  Call KR word count routine, per C Programming Language p. 140.
• Private Sub cbkLetter()
  Make all print ranges letter format and fit to one sheet.
• Private Sub cbk2dHist()
  Call back to run 2-d histogram function. Select range of (x,y), each weighted equally or (x,y,wt) to produce a weighted histogram.
• Private Sub cbkPlot3d()
  Select an m x n input range and click 3D Plot to activate a beautiful 3-D graphic of the selected range. Minimal scaling options on the x and y axis and generic labelling, but great coloring, contouring and interactive features. Ability to take a "snapshot" of the graphics, which is inserted into the spreadsheet (at the top left hand corner of the selected range) as a JPG file. Controls in the graphics window include:

  • left mouse - rotate image
  • right mouse - zoom in (upper half of image) and out (lower half)
  • w - toggle to wireframe view
  • s - toggle back to surface view
  • j - joystick mode
  • t - track ball mode

  Some graphics cards aren't really upto this control; you need very good OpenGL support.
• Private Sub cbkDemos()
  Call back to run VTK demos.
• Private Sub cbkCatVis()
  Call back to run Catastrophe Visualization in VTK.
• Private Sub cbkBivDist()
  Call back to run VTK bivariate distribution maker and viewer.
• Private Sub cbkRangeToXML()
  Call back to save the selection to an XML file. Somewhat picky about column headings. Needs further development before prime time!
• Sub grtTiming(x As Variant)
  General purpose timing routine which displays elapsed time in the status bar. Call Timing 1 to start the timer. Call Timing "message" to end the timer and display message and elapsed time
• Private Sub cbReinstall()
  Call back to reinstall GREATools menu bar.
• Private Sub cbDeleleteLowerHalf()
  Delete the lower half (below diagonal) of a correlation matrix.
• Private Sub cbDeleteDiagAndBelow()
  Delete the lower half (including diagonal) of a correlation matrix.
• Private Sub cbZeroLowerHalf()
  Set out the lower half of a matrix.
• Private Sub cbOnesOnDiagZerosBelow()
  Put ones along the diagonal and zeros below on a matrix.
• Private Sub cbDeleleteWork(offset As Long)
  Handles the actual work for zeroing matrices.
• Private Sub cbZerosWork(offset As Long)
  Handles the work to delete the lower half (below diagonal) of a correlation matrix.
• Private Sub cbLabelXYPlot()
  Call back to produce a labelled x-y plot. Highlight a range of (label, x, y) , sorted by label. Makes a graph of x,y points colored by label values. Only accepts n x 3 input.
• Private Sub grtLabelXYFormatSeries(s As Series, colorNum As Long)
  Utility routine for cbLabelXYPlot to color a particular series.
• Private Sub cbXYLineChart()
  Generic XY chart format, series joined with lines. Sensible font sizes. Highlight range and execute.
• Private Sub cbXYChartWithLine()
  Generic XY chart format, series joined with lines. Sensible font sizes. Highlight range and execute.
• Private Sub cbXYChartScatter()
  Generic XY chart format, scatter plot. Sensible font sizes. Highlight range and execute.
• Private Sub cbSanitizePlot()
  Apply Tufte-standard formatting to plot, as near as possible!
• Private Sub SanitizeFont(fn As Font, Optional fontSizeInc As Long = 0)
• Private Sub grtXYChart(ls As Long, Optional chtType = xlXYScatter)
  Implements cbXYChartWithLine and cbXYChartScatter
• Private Sub cbScalesToLog()
  Toggles axes on a chart: both log, x log, y log, neither log.
• Sub cbScalesToTight()
  Toggles the scales from automatic, to tight xy, tight x, tight y, where tight is based on the actual max/min of the series in the chart. For xy plots only.
• Private Sub cbMakeDisplayOfButtonImages()
  Makes a list of all built in button images with their numbers. Useful for making custom menu bar buttons.
• Private Sub cbNextButtons()
• Private Sub cbPrevButtons()
• Private Sub AddButtonsTobar(no As Long, Optional forceClear As Boolean = False)
• Private Sub cbDeleteTrashBar()
• Private Sub tester()
  Generates an error to test Error Handler routine.
• Public Sub ActivateOrOpenWorkbookFromFullName(wkbFullName As String)
  Opens or activates a workbook from its full path name (UNC format). The workbooks collection is not keyed by full name so "workbooks("mybook").activate will not work. Special options for wbkFullName equal Any, All, Active or Open available.
• Sub HeadingFormat(rg As Range)
  Sets format to nice color, bold, italics.
• Sub AddCommentToCell(rg As Range, str As String)
  Adds a comment to the cell in a standardized box size.
• Private Sub gmGenericDispatch(strInOut As String, Optional collArgs As Collection)
  Fires the frmGenericXML viewer and handles getting arguemnts in and out.
• Private Sub showHelp()
  View help HTML file from the website.
• Private Sub showErrors()
  Shows the current list of logged errors. Logging is done inconsistently, so this is really for future use.
• Private Sub showAbout()
  Shows the about file.
• Private Sub dbInfoOS()
  Show frmDatabase, to query for table definitions etc. Only available for Oracle and SQL Server Databases.
• Private Sub cbkConsolidateStrings()
  Consolidates string values of all cells from the active cell to the next empty cell into the active cell and deletes the contents of the remaining cells.
• Sub cbMakeCovMat()
  Makes a covariance matrix out of the selected cells. Cells(2,1).value is used as default.
• Sub cbNameRanges()
  Names cells the value to the left (for use in creating an option table).
• Sub cbSuckValues()
  Creates VBA code to read in values of variables as created by cbNameRanges.
• Sub cbSetValues()
  Creates VBA code to set var = Range, using variables as created by cbNameRanges.
• Private Sub cbShowRevisionNumber()
• Private Sub cbCopyExact()
  Copies the values, formulas and number formats of a region into a cache. On second call the contents is written to the destination cells as a duplicate. Thus cell references are not moved as in a usual copy and paste operation.
• Private Sub cbDocRange1_24()
• Private Sub cbDocRange12_35()
• Private Sub cbDocRange13_46()
• Private Sub colorFormulae()
  Color cells with formulas blue. Otherwise color black.
• Private Sub findNonMatch()
  Highlight range and compare formulas with the next column over.
• Private Sub cbGotoCommonRangeInSheets()
  Moves the cursor to the same place in each worksheet of the active workbook.
• Private Sub cbGotoCommonOptions()
  Set options for advanced "common position" function.
• Private Sub cbGotoCommonRangeInSheetsEx()
  Moves the cursor to the same place in each worksheet of the active workbook, with extended options set using cbGotoCommonOptions
• Private Sub NiceDeAbs()
  Makes local cells non-absolute while keeping distant cells absolute. Useful for making changes to templates produced by Distributions etc.
• Private Sub cbCAC()
  Center across selection.
• Private Sub cbShadeCells()
  Solid shade cells a reasonable color, that can subsequently be toggled.
• Private Sub cbParLines()
  Add vertical parallel lines, reasonable color, that can subsequently be toggled.
• Private Sub cbFormatRows()
  Thick/thin formatting of rows.
• Private Sub cbToggleColor()
  Toggle private colors to highlight input cells etc.
• Private Sub cbSwapFormulaAndComment()
  Swaps the formula and comment. If range has no comment one is created.
• Private Sub cbShowOpenWorkbooks()
• Private Sub cbSaveAllWorkbooks()
  Dim wk As Workbook, s As String, v ' As VBProject

• Function GetBar() As CommandBar
• Function NiceColor() As Long
  Returns a nice color to use in headings etc. Color is RGB(60, 75, 115).
• Private Function GetSensibleFormat(mx As Double, mn As Double) As String
  Return a reasonable format for the axis, given the max and min values
• Function GetUNCFileName(fnIn As String) As String
  Converts a filename into UNC format. Only changes mapped networked drives, not local drives.
• Function MakeID() As String
  Generates a GUID and return as a string, use for making unique IDs. Not in any particular format. Calls UuidCreate API function.
• Function gmErrorHandler(e As ErrObject, modName As String, procName As String, Optional cont As Boolean = False) As Boolean
  Generic Error Handler: Logs errors to ERROR_LOG_FILE. If cont = true then you have option to continue (returned in cont), else just ends. Cont options must be handled by the caller.
• Function ActivePath() As String
  Returns the path of the active workbook
• Private Function RangeDist(r1 As Range, r2 As Range) As Long
  Determines the distance (in cells) between two ranges Uses the infinite norm

• Private Sub Class_Initialize()
• Public Sub incr()

• Public Sub SetStats(vIn)
  ' set the input moments vector. must be a multiple of three long and contain (EX, EX2, EX3) triples

• Public Function MCVSkAsRow(n)
  ' return mean, cv, skewness formatted in an HTML row
• Public Function MCVSkToRow(n As Integer, rg As Range)
  ' return mean, cv, skewness formatted in an HTML row
• Public Function skew(n As Integer) As Double
  On Error GoTo errh
• Public Function moms(n)
  ' get the nth EX,EX2,EX3 triple from the input moments vector ' zero based
• Public Function LNFit(n)
  ' Lognormal fit to the nth triple ' XXXX probably should implement TLN fit here too?? On Error Resume Next

• Private Sub cbDeleteModel_Click()
  delete indicated model
• Private Sub cbDone_Click()
  done with dialog
• Private Sub cbSetAsCurrent_Click()
  set selected as current
• Private Sub cbExecute_Click()
  execute the selected model (also sets as selected)
• Private Sub lbMain_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
• Private Sub UserForm_Initialize()
  on form load. Find all models = reg_model_XXX

• Private Sub cbDone_Click()
  ' done with dialog
• Private Sub cbSetup_Click()
  ' set up the model ' make the current dialog
• Private Sub OptionButton1_Click()
• Private Sub OptionButton2_Click()
• Private Sub UserForm_Initialize()
• Private Sub SetUpDistAndLinkCellValidation(rgIn As Range)
  ' put in validation for distributions in rgIn and link ratios in rgIn.offset(1,0)
• Private Sub PutInCurrentNames(rgIn As Range)
  ' as above, enter the current named ranges in the active workbook as drop down options

• Public Sub cbRegSetup()
  Regression set up call back.
• Private Sub cbRegListAllModels()
  List all regression models.
• Private Sub cbRegRefresh()
  Refresh/recalc call back. If there is a current, execute it. If not, is there a reg_ name on the current sheet? If not query for model.
• Private Sub cbRegDescCurrent()
  Describe the current regression model.
• Private Sub cbRegCurrentToStatusBar()
  Describe current model to the status bar.
• Public Sub regDispatchRegModelByName(nm As String)
  Call regExecuteLinearRegModel or regExecuteGLMRegModel from a name only. Called from forms, so has to be public.
• Public Sub regExecuteGLMRegModel(rgX As Range, rgY As Range, rgWt As Range, useOffset As Boolean, rgOffset As Range, rgOut As Range, dist As Long, link As Long, ctg As Double, linkPow As Double)
• Public Sub regExecuteLinearRegModel(xrg As Range, yrg As Range, wtrg As Range, outRg As Range, oo As Long, hasIntercept As Long)
  Refresh the given model, lod = level of output detail.
• Private Sub cbPrincCompAnal()
  Runs the principal component analysis.
• Sub regSafeAddName(nm As String, rg As Range, nrow As Long, ncol As Long)
  Safe adds a name based at rg of size nrows x ncols.
• Public Sub ButtonOnOff(oo As Boolean)
  Refresh button on/off management.
• Private Sub regSubTitleFormat(rg As Range)
• Sub regWriteResult(rgbase As Range, RV As String, v, Optional offset As Long = 0)
  Write out RV, move rgBase. Utility function.
• Private Sub regSpecialFormat(rgName As String, maxLim As Double, minLim As Double, colorCode As Long, Optional bold As Boolean = True)
• Private Sub regBuildDesignMatrix()
  Makes a design matrix from input range, adds and intercept, and makes class variables full rank by deleting columns. Assumes input is

    Var Name        |Var Name        | etc.
    Class or Var    |Class or Var    |
    data            |data            |
    ...             |...             |
    data            |data            |
   

• Private Sub regBuildDesignMatrixCol(rgIn As Range, rgOut As Range)
• Private Sub KR_MainForDesign(rgIn As Range, root As uCKRTreeNode)
• Private Sub KR_DesignMakeCollectionOfUniqueElements(r As uCKRTreeNode, n As Long, coll As Collection)
• Private Sub regMakeTrgDesignMatrix()
  ' makes a generic design matrix out of a triangle
• Private Sub regHalliwellDesignMatrix()
  ' Halliwell design matrix, as above ' From PCAS LXXXIII PAPER ' three area input: trg, exps, output base

• Private Function RegTitleFormat(rg As Range)
• Public Function regRemoveTrend(v)
  Performs linear regression to remove trend. Fit is using built in Excel functions.

• Private Sub btDelete_Click()
  ' delete selected item from the access database
• Private Sub cbOK_Click()
• Private Sub cbOpen_Click()
  ' open the file of the currently selected task (from the listview, not the tree view)
• Private Sub cbRun_Click()
• Private Sub cbSave_Click()
  ' get parents etc ' put information in the list view box
• Private Sub lvTaskDetail_AfterLabelEdit(Cancel As Integer, NewString As String)
• Private Sub lvTaskDetail_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  ' in this case we have to do something ' before doing it, check isDirty
• Private Sub tvTaskTree_Click()
  ' get parents etc ' put information in the list view box
• Private Sub UserForm_Initialize()
• Sub FillInTaskInfo(rst As ADODB.Recordset, tName As String, tType As String, lv As ListView)

• Private Sub cbPrint_Click()
• Private Sub UserForm_Initialize()
• Public Sub gmInitFile(strFile As String)
• Private Sub cbClose_Click()
  ' hidden button so that ESC will close the dialog (concession to Lotus Notes users)

• Private Sub cbDelete_Click()
  Delete project specification from workspace database.
• Private Sub cbDeselect_Click()
• Private Sub cbDone_Click()
• Private Sub cbMoveDown_Click()
• Private Sub cbMoveUp_Click()
• Private Sub cbRun_Click()
  ' loop through the list box and call appropriate run routines... ' runTask
• Private Sub cbSave_Click()
  ' save new project ' write to a variant and then use g_tasks.WriteVariantToListDB
• Private Sub cbSelect_Click()
• Private Sub cbxProjName_AfterUpdate()
  ' triggered after you have input some new information
• Private Sub cbxProjName_Change()
• Private Sub tvTaskTree_DblClick()
• Private Sub UserForm_Initialize()

• Private Sub NewWizard1()
• Private Sub NewWizard2()
• Private Sub NewWizard3()
• Private Sub NewWizard4()
• Private Sub NewWizard5()
• Private Sub NewWizard6()
• Private Sub CreateWizard1()
• Private Sub CreateWizard2()
• Private Sub CreateWizard3()
• Private Sub CreateWizard4()
• Private Sub CreateWizard5()
• Private Sub CreateWizard6()
• Private Sub Headings1()
• Private Sub Headings2()
• Private Sub Headings3()
• Private Sub Headings4()
• Private Sub Headings5()
• Private Sub Headings6()
• Private Sub Dump1()
• Private Sub Dump2()
• Private Sub Dump3()
• Private Sub Dump4()
• Private Sub Dump5()
• Private Sub Dump6()
• Public Sub grtCreateObject(obName As String, xx As Variant)

• Public Sub GREATMenu()
  Set up TPM menu within GREAT menu bar.
• Private Sub EditWorkspace()
• Private Sub ProjectWorkspace()
• Private Sub LoadTasks()
  Load to the database from the current selection. Uses data in format provided by "create headings" menu item.
• Private Sub GenerateCallBacks()
• Private Sub AddCreateObject(strOut As String)
• Private Sub WriteSub(strOut As String, strPrefix As String)
• Private Sub NewTaskBlank()
  ' blank for creating a new task
• Private Sub CreateNewTask()
• Sub AddClassTemplate(taskName As String)
• Private Sub newMDBWorkspace()
  Creates an empty MDB database, sets it as the workspace and builds default entries. Convenience for users who do not have Access.
• Private Sub newSQLWorkspace()
  Creates an empty SQL server database as a container for a workspace. Builds default entries. Convenience for users. Requires God-like powers in SQL server to execute.
• Private Sub createWorkspaceDB()
  Creates a workspace database. The user is prompted to make a connection to the database where the workspace will live and for the template file (default provided). The database must already exist. If it doesn't the user can use newMDBWorkspace to create a new Access database or newSQLWorkspace to create a database in SQL Server. For other database platforms (Oracle, DB2 etc.) you shoud contact your database administrator. Unlucky you!
  The new database is not selected as the current workspace. Use openWorkspace to select the new database as the current workspace.
• Private Sub openWorkspace()
  Prompt user for a new TPM workspace database.
• Private Sub ShowCurrentWorkspace()
  Display the current workspace connection string.
• Private Sub Reexecute()
  Reexecute the current (last) task. Controlled by the TPM.
• Sub AddBlankRecord(rst As Recordset, tName As String, tType As String, b As Boolean)
  Adds a blank task record to the workspace. Used by TPM to enter a user task.
• Public Sub gOpenDB(p_cn As ADODB.Connection, Optional strCN As String = "")
  Global OpenDB method. Have to be able to call this without prefobbing the task manager (e.g. when there isn't a valid database present!)
• Public Sub ExecuteSQLFile(cn As ADODB.Connection)
  Used to create a new database with minimal type entries in the input connection. Includes task definitions for everything in the base distribution. Outside fxtCTasks so you don't have to initialize class before running.

• Public Sub NewWizard()
• Public Sub CreateWizard()
  ' create a record from a worksheet based range set up by the reg wizard
• Public Sub Execute(params As Collection, retVal As Boolean)

• Public Sub NewWizard()
• Public Sub CreateWizard()
• Public Sub Execute(params As Collection, retVal As Boolean)

• Public Sub NewWizard()
• Public Sub CreateWizard()
  ' create from a range made by grt... tools ' create a record from a worksheet based range set up by the reg wizard
• Public Sub Execute(params As Collection, retVal As Boolean)

• Public Sub NewWizard()
  ' Wizard generated class template ' Insert your implementation here
• Public Sub CreateWizard()
  ' Wizard generated class template ' Insert your implementation here
• Public Sub Execute(params As Collection, retVal As Boolean)
  ' Wizard generated class template ' Insert your implementation here

• Public Sub NewWizard()
  ' Wizard generated class template ' Insert your implementation here
• Public Sub CreateWizard()
  ' Wizard generated class template ' expect an n x 2 column of print range/workbookname pairs
• Public Sub Execute(params As Collection, retVal As Boolean)

• Public Sub NewWizard()
  ' Wizard generated class template ' Insert your implementation here
• Public Sub CreateWizard()
  ' Wizard generated class template ' Insert your implementation here
• Public Sub Execute(params As Collection, retVal As Boolean)
  ' Wizard generated class template ' Insert your implementation here

• Private Sub Class_Initialize()
  Initializes TPM. Opens database connection. Updates the list of task names.
• Public Sub Prefobnicate(Optional force As Boolean = False)
  Sets up TPM, including establishing contact with the database.
• Public Sub NewWizard(n As Integer)
  NewWizard and the subsequent four methods are part of TPM Generic Task Support. There are four methods, corresponding the menu functions:

  New Task Wizard	make a new TASK
  Create from existing range	create a TASK from existing ranges
  Blank Headings	set up the headings
  Dump Database	dump out database contents

  NewWizard runs a task's Create New method, which provides maximum guidance to the user.
• Public Sub CreateWizard(n As Integer)
  Runs the task's create from existing ranges method. Usually executed to save a template made by the NewWizard to the database.
• Public Sub Headings(n As Integer)
  Creates a spreadsheet blank with headings appropriate to define a given task.
• Public Sub Dump(n As Integer)
  Dumps all user tasks of a given type from the TPM.
• Public Sub RunTaskAction(action As Integer, ByRef tType As String, Optional ByRef tName As String, Optional ByRef retVal As Boolean)
  Executes a given user task, including bundling all the arguments appropriately. Key method of the TPM. Eventually calls C[TaskName].Execute and passes in a collection of input and output arguments.
• Private Sub checkWorkbookSaved(retVal As Boolean)
  Enforces saving of the active workbook. Useful for ensuring a proper filename is stored in the TPM.
• Private Sub CreateHeadings(base As Range, tType As String)
  Set up a blank range for headings for a particular task type, passed in as tType. Called Headings by with appropriate task type resolved from internal collection.
• Private Sub DumpDB(base As Range, tType As String)
  Dump out all the tType tasks from the database. Called by Dump with tType resolved from the database.
• Public Sub Reexecute()
  Reexecute the current task, if one is available.
• Public Sub SetCurrentTask(tName As String, tType As String)
  Sets the current task name and type (for the reexecute function).
• Public Sub ClearCurrentTask()
  Clears the current task (for the reexecute function).
• Public Sub LoadTasks()
  Load to the database from the current selection using TPM data format provided by "create headings" menu item.
• Public Sub WriteVariantToListDB(strID As String, v)
  Writes a list of items, stored in a variant v, to the database as a list with given ID, strID.
• Public Sub WriteRangeToListDB(strNamePrompt As String, tType As String, expectedCols As Long)
  Creates a list-only task, such as Print, from a selected range. Prompts user for name of task. Method will fail if name input is not unique.
• Public Sub DeleteTask(tName As String, tType As String)
  Delete a task from the TPM database, plus any associated list items.
• Public Sub OpenDB(Optional strCN As String = "")
  Prompt user for a new TPM workspace database. If a file name is passed in (strFileName) it is used as a the name of an access database, which is then opened without prompting the user. Caller of routine is responsible to Prefob if necessary.
• Private Sub ExecuteSQLFile_Internal(cn As ADODB.Connection)
  Calls ExecuteSQLFile with the active connection.

• Public Function GetDBName() As String
  Returns connection string for the TPM workspace. If there is no registry entry then it creates a blank new Access database. (This should not happen with a correctly installed instance of the application.)

• Private Sub MakeSCAREDocumentation()
  Makes SCARE documentation. See MakeGreatDocumentation for more information.
• Private Sub MakeGREATDocumentation()
  Run auto-documentation creation. Creates a file like the one you are reading from comments in the VBA source of your selected workbook. Module comments are generated from the first comments in each module (until the first new line). Function and Subroutine comments are the comments immediately following the declaration until the first non-comment line.
  The comments can include HTML markup. It is copied verbatim into the documentation file. Change the base directory name and module name as appropriate to run on your project. Make sure that >, < and & are appropriately HTMLized!
• Private Sub MakeModuleDocumentation(fileHeader As String, strModName As String, strFN As String)
  Pulls out all the comments at the top of each module to produce auto documentation.
• Private Sub MakeSubFunDocumentation(fileHeader As String, strModName As String, strHTMLOut As String, c As Collection)
  Pulls out all the comments at the top of sub and function to produce auto documentation. The collection is used to store module documentation, which is passed to the menu documenter.
• Private Sub processModule(strWhat As String, strName As String, comp, tso, tsoIdx, c As Collection)
  Write out declaration and description comment for all functions or subs in a module.
• Private Sub StartNewDocFile(tso, fn As String)
  Creates and new text stream object and file. Used in documentation production.
• Private Sub MakeMenuDocumentation(fileHeader As String, strBarName As String, strFN As String, c As Collection)
  Makes documentation for the menu bars from the actual bar.
• Private Sub WriteMenuItem(ob1, tso, c As Collection, ByVal pad As Long, pass As Integer)
  WriteMenuItems over a menu bar to produce documentation. The collection passes in all the routine comments, keyed by routine name, so they can easily be added to the document here.
• Private Sub deAmpersand(strIn As String, strHTML As String)
  Convert a caption like &Edit to <strong>E</strong>dit for HMTL documentation returned in strHTML and just the plain text, returned in strClean

• Private Function HTMLHeader(title As String, css As String, graphic As String, h1Title As String) As String
• Private Function dePath(strIn As String) As String
  Convert the full callback function name to one without the workbook full path for HTLM help.
• Function getProcName(strTemp As String) As String
  Converts a Sub or Function defintion into just the sub or function name

• Public Sub NewWizard()
• Public Sub CreateWizard()
  Create a project from a list of tasks. Expects an n x 2 column of project name/project types.
• Public Sub Execute(params As Collection, retVal As Boolean)
  ' Execute each task in a list ' need task name/task type pairs

• Private Sub cbDone_Click()
• Private Sub cbMakeNN_Click()
  Make entry for not null.
• Private Sub cbMakePK_Click()
  Make entry for primary key.
• Private Sub cbMakeUnq_Click()
  ' make entry for unqiue ref ' make entry for primary key
• Private Sub cbMakeRef_Click()
  Make entry for external reference and for not null.
• Private Sub frmNN_Enter()
• Private Sub frmPK_Enter()
• Private Sub frmRef_Enter()
• Private Sub UserForm_Initialize()
  '
• Public Sub Prefob()
  Ccalled after we have had a chance to set the range names etc. Populate the list box of field names

• Private Sub cbNewConn_Click()
• Private Sub cbAll_Click()
  ' select all items in the list box
• Private Sub cbAll2_Click()
  ' select all items in the list box
• Private Sub cbClose_Click()
• Private Sub cbDependencies_Click()
  ' read extract and produce a list of table dependencies
• Private Sub cbDependenciesSource_Click()
  ' read extract and produce a list of source and object dependencies
• Private Sub cbRead_Click()
• Private Sub cbReadSource_Click()
  Read view/trigger etc code, much the same as cbRead_Click
• Private Sub cbRefresh_Click()
  Refresh the list of user tables.
• Private Sub CheckConnection()
• Private Sub cbRefreshSource_Click()
  Refresh list of views, sequences, procedures, and triggers.
• Private Sub cbExecute_Click()
  ' execute the SQL code(s) for the selected items
• Private Sub cbRegenDDL_Click()
  ' regenerate the ddl for the selected tables
• Private Sub cbWriteAll_Click()
  ' write out all selected tables
• Private Sub cbWriteTable_Click()
  ' write out selected table(s) SQL to a file
• Private Sub WriteOrExecuteSQL(strName As String, WriteOrExecute As String)
  ' write / execute the sql ' if you have gotten here then you must have a connection, but be careful
• Private Sub cbxConnectionString_AfterUpdate()
• Private Sub cbxWorkbook_Change()
  ' look for ranges and load into write box
• Private Sub obCursor_Click()
• Private Sub obWorkbook_Click()
• Private Sub tbSchema_AfterUpdate()
• Private Sub UserForm_Activate()
• Private Sub UserForm_Initialize()
• Private Sub writeToFile(str As String)
  Keeps track of the connection strings used recently.

• Private Sub makeNice(rg As Range, str As String, Optional move As Boolean = True)
  used to set and format certain values
• Public Sub ReadTableDef(tableName As String, schemaName As String, numRows As Long, outWksht As Worksheet, outRg As Range, newsheet As Boolean, cn As ADODB.Connection)
  Reads table definition from Oralce or SQL Server

   tableName        name of table
   schemaName       oracle schema name
   numRows          number of rows to read, 0 for all rows
   outWksht         output worksheet
   outRg            output range, starting point
   newsheet         controls how the output sheet is renamed
   cn               ADO connection to oracle database
   

• Public Sub RegenerateDDL(rgName As String)
  re-read and regenerate DDL for tables only rgName is the name of the range where the re-written DDL will go apart from that it is not used sheet must be in standard frmDatabase format
• Public Sub WriteLine(ByRef rg As Range, strLabel As String, strValue As Variant)
  this never really caught on like it should have...
• Public Sub WriteInserts(rgIn As Range)
  write insert statements from Excel range assumes you are in a standard frmDatabase blank (uses to get info about field types for prepping the data) input range is anywhere on the row of the first row of data

• Public Function DBType(connStr As String) As String
  Determine database type from connection string

• Public Sub AddColumn(f_name, f_type, f_len, f_nullable, f_default, f_precision, f_scale)
• Public Sub AddConstraint(cst_name, ct, colname, searchcond, refdtable, refdcol, tsname)

• Public Function GetPreparedValue(val As Variant, f_name As String)
  ' returns a formatted version of the field f_name
• Public Function GetPreparedValue2(val As Variant, f_name As String)
  Returns a formatted version of the field f_name, based on SQL Server datatypes
• Private Function chomp(strIn, maxLen As Integer) As String
  ' also escapes quotes XXXX
• Private Function chompDate(strIn) As Date
• Private Function chompYear(strIn) As Integer
• Private Function chompDouble(strIn) As Double

• Sub Document(nNameCols As Long, outBase As Long)
  Documents row names, precedents and dependents starting in column outBase. Uses first nNameCols for column names.
• Private Sub DocumentNames(nNameCols As Long, outBase As Long)
  Documents an input range. Uses columns 1-nNameCols to derive names. Writes output in column outBase.
• Private Sub DocumentDependents(nNameCols As Long, outBase As Long)
  Documents dependents of an input range. Uses columns 1-nNameCols to derive names. Writes output in column outBase.
• Private Sub DocumentPrecedents(nNameCols As Long, outBase As Long)
  Documents formulas in input range. Uses columns 1-nNameCols to derive names. Writes output in column outBase.
• Private Sub DocumentRowFormulae()
  Documents formulas in input range. Can be a single row or single column Assumes the following input structure

         (1)         (2)         <== created by this macro
          .          '=(1)       <== created by this macro
       Heading1      Heading2    <== input by user
       =formula1     =formula2   <== input by user and selected prior to running this macro
   

• Private Function MakeName(rg2 As Range, nNameCols As Long) As String

• Public Sub SetStr(s1 As String)
  Set the subject string
• Public Sub nxtArg(typ As opTyp, ss As String)
  Returns the next argument in ss and its type in typ.
• Private Sub PutBack()
  Moves the cursor back one step. Equivalent to putc.
• Private Sub Class_Initialize()

• Private Function nxt() As String
  Returns the next character. Equivalent to getc.

• Sub cbCloseAllFile()
  Close all open mappings.
• Sub cbGetFVMFileName()
  Allows the user to navigate to a file. Returns full name with path in selection. Convenience function.
• Sub cbListDirFVM()
  List contents (rows and columns) of all FVM files in selected directory.
• Sub cbPersistRange()
  Persist selected range to a mapped file. User prompted for filename.
• Sub cbDePersistRange()
  Read file persist with cbPersistRange to selection. User prompted for filename.

• Function Eigen(v)
• Function fvmDescribe(fn As String) As Variant
• Function fvmGetColOld(fn As String, a As Long)
  Deprecated.
• Function fvmGetCol(fn As String, a As Long)
  Use mapping pool to retrieve column a from file. First column is a=1.
• Function fvmGetRow(fn As String, a As Long)
  Use mapping pool to retrieve column a from file. Return transposed, as a row. First column is a=1.
• Function fvmGetCols(fn As String, a As Long, numCols As Long)
  Use mapping pool to retrieve columns a from file. First column is a=1. numCols=1 means return just ath column, =2 means return two columns, etc.
• Function fvmGetPartCol(fn As String, a As Long, start As Long, num As Long)
  Use mapping pool to retrieve column a from file. First column is a=1. Return from start to finish elements in the column.
• Function fvmGetPartRow(fn As String, a As Long, start As Long, num As Long)
  Use mapping pool to retrieve column a from file. First column is a=1. Return from start to finish elements in the column. Return as a row.
• Function fvmConcatenate(f1 As String, f2 As String, fOut As String, hv As Long)
• Function fvmGetFile(f As String)

• Private Sub popOpts()
• Private Sub cbClose_Click()
  hidden button so that Esc will close the dialog.
• Private Sub cbPrint_Click()
• Private Sub ListBox1_Change()
• Public Sub Prefob(md As enOptionMode)
• Private Sub Resize()
• Private Sub UserForm_Activate()

• Private Sub TeXMatrix()
• Private Sub TeXPMatrix()
• Private Sub TeXVMatrix()
• Private Sub TeXVVMatrix()
• Private Sub TeXBMatrix()
• Private Sub TeXMatrixWk(prefix As String)
  Make the selection into a TeX pmatrix and copy to clipboard
• Private Sub TeXify()
  Makes a tex string command out of the selection table. Assumes the data is mostly numbers and hence right justifies. Middle vertical lines and all horizontal lines. Answer output to clipboard. Input is Caption Row of l, r, c to determine alignments Heading row data data data Version 1.0, Stephen Mildenhall, January 2003.

• Sub cbClick(ud As Long)
  Increment or decrement clicker list box. Action depends on mode.
• Sub refreshClicker(mb As CommandBarComboBox)
• Sub clickPrecIt(mb As CommandBarComboBox)
  Auditor, trace all direct precedents of the active cell. Uses CFormula to track across sheets (built-in Excel functions only track within the active sheet). Adapted from precIt.
• Sub clickDepIt(mb As CommandBarComboBox)
  Auditor, trace all direct decendents of the active cell.
• Private Sub clearClicker()
• Private Sub cbClickerChange()
• Private Sub clickerNameMode()
• Private Sub GetRange()
• Private Sub clickAddAndSelect()
  Add the selected range to the clicker drop down, select it into the drop down and set to clicker mode.
• Private Sub clickIterate()
  Iterates: selection.value = range(combo box range).value.

• Private Function GetAddressOrName(rg As Range) As String

• Public Function HTML() As String

• Private Sub Class_Initialize()
• Public Sub WriteAllHTML()

• Private Function nHTicks() As Long
• Private Function makeVAxisLabel() As String
  write out the table for the vertical axis title
• Private Function makeVAxis(nVTicks As Long, ht As Long, vLow As Double, vIncr As Double, vNumFmt As String) As String
• Private Function makeImage() As String
  write out the table for the image
• Private Function makeColorBar() As String
  write out the table for the color bar. Not called if there is no colorbar
• Private Function makeHAxis() As String

• Sub AddElt(e As CHTMLElement)

• Public Function HTML() As String

• Sub AddTD(text As String, Optional w As Long = 0, Optional h As Long = 0, Optional cls As String = "", Optional colSpan As Long = 0, Optional otherOptions As String = "")
• Sub AddRow(Optional w As Long = 0, Optional h As Long = 0, Optional cls As String = "")

• Public Function HTML() As String

• Private Sub cbWriteImagePlotBlank()
  Write an Image Plot blank to Excel with all inputs and defaults.
• Private Sub cbExecuteImagePlot()
  Make image plot HTML file from blank (above).
• Private Sub cbDisplayImagePlot()
  Show above file in HTML browser
• Private Sub DisplayImagePlotWork(fileName As String)
• Sub cbListDirBMP()
  List contents of all BMPs files in selected directory.
• Sub cbGetBMPFileName()
  Allows the user to navigate to a file. Returns full name with path in selection. Convenience function.
• Private Sub cbInsertImage()
• Private Sub cbInsertImageAndDecs()
  As above with all the frills
• Private Sub cbImageToEPS()
• Private Sub cbMakeImageFromRange()
• Private Sub BuildColorBar()
  Builds a color bar with all the current options
• Private Sub SetColorOptions()
  Set color options from a blank
• Private Sub ColorOptionsBlank()