‘–snip–
Function LocalATPName(strUSATPName As String) As String
i = 0
On Error Resume Next
LocalATPName = “”
With funcres.ThisWorkbook.Worksheets(“RES”).Range(“Func_table”)
LocalATPName = .Cells(Application.Match(strUSATPName, .Columns(1), 0), 3).Value
End With
End Function

Sub TestIt()
MsgBox LocalATPName(“DEC2BIN”)
End Sub
‘–snip–

Greetings,
-Robert-

(1) reference in VBE to the “funcres” add-in (i.e. the analysis toolpack).

(2) The following function looks up the local function name:

‘–snip–
Function LocalATPName(strUSATPName As String) As String
i = 0
On Error Resume Next
LocalATPName = “” ‘empty string in case of error
With funcres.ThisWorkbook.Worksheets(“RES”).Range(“US_Funcs”)
LocalATPName = .Cells(Application.Match(strUSATPName, .Cells, 0), 1).Offset(0, 5).Value
End With
End Function

Sub TestIt()
MsgBox LocalATPName(“DEC2BIN”)
End Sub
‘–snip–

I’d dont think, they’ve changed anything on this sheet in the last versions. So it should also work in XL2002.

Greetings from Vienna, Austria,
-Robert-

=NOT(ISERR(RANDBETWEEN(0,1)))

will return true/false depending on whether the toolpak is installed. This helps new users to understand why the model isn’t working if they haven’t got it.