This example assumes that you created a custom function or command on a Microsoft Excel 4.0 macro sheet. The example displays the function category in the language of the macro. It assumes that the name of the custom function or command is the only name in the workbook.
With ActiveWorkbook.Names(1)
If .MacroType <> xlNone Then
MsgBox "The category for this name is " & .Category
Else
MsgBox "This name does not refer to" & _
" a custom function or command."
End If
End With