add custom category description to UDF

[axel67]

Hi,
I came accross a procedure how to add to a UDF a function description as well as to set a new category (see below). But when I try that for my XLA project it does not work and I get the error 1004: Method 'MacroOptions' of object '_Application' failed.

Sub AddCategoryDescription()
Dim strFunction As String
Dim strDescript As String
Dim vCat
strFunction = "MyAge"
strDescript = "Function to calculate my age"
vCat = "My own functions"
Application.MacroOptions Macro:=strFunction, Description:=strDescript, Category:=vCat
End Sub

Has anyone an idea?

Thanks,
Axel