In diesem Beispiel wird davon ausgegangen, dass eine benutzerdefinierte Funktion bzw. ein benutzerdefinierter Befehl in einer Makrovorlage von Microsoft Excel, Version 4.0, erstellt wurde. Die Funktionskategorie wird in der Sprache des Makros angezeigt. Es wird vorausgesetzt, dass der Name der benutzerdefinierten Funktion bzw. des benutzerdefinierten Befehls der einzige Name ist, der in der Arbeitsmappe vorkommt.
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