Custom Categories for UDF

I have made different functions and I would like to have them in four different custom categories by using the following:

Application.MacroOptions macro:="Interpolation", Description:="Liniar Interpolation ", Category:="Interpol"
Application.MacroOptions macro:="Lagrange", Description:="Lagrange Interpolation ", Category:="Interpol"
Application.MacroOptions macro:="inter_2_poly", Description:="2nd Degree Polynomia Interpolation (X: Lo to Hi) ", Category:="Interpol"
Application.MacroOptions macro:="inter_2_poly_back", Description:="2nd Degree Polynomia Interpolation (X: Hi to Lo) ", Category:="Interpol"
Application.MacroOptions macro:="Ra_spline2", Description:="Ra_spline2 ", Category:="Interpol"
'
Application.MacroOptions macro:="KQ", Description:="Calculation of KQ for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="KT", Description:="Calculation of KT for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="PD_KQ", Description:="Calculation of P/D based on KQ for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="PD_KT", Description:="Calculation of P/D based on KT for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="J_KT_J2", Description:="Calculation of J based on KT/J2 for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="J_KT_J4", Description:="Calculation of J based on KT/J4 for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="J_KQ_J3", Description:="Calculation of J based on KQ/J3 for open propeller ", Category:="B-serie"
Application.MacroOptions macro:="J_KQ_J5", Description:="Calculation of J based on KQ/J5 for open propeller ", Category:="B-serie"
'
Application.MacroOptions macro:="Kq_Ka", Description:="Calculation of KQ for nozzle propeller ", Category:="Ka-serie"
Application.MacroOptions macro:="Ktt_Ka", Description:="Calculation of KTT for nozzle propeller ", Category:="Ka-serie"
Application.MacroOptions macro:="Ktn_Ka", Description:="Calculation of KTN for nozzle propeller ", Category:="Ka-serie"
Application.MacroOptions macro:="PD_Kq_Ka", Description:="Calculation of P/D based on KQ for nozzle propeller ", Category:="Ka-serie"
Application.MacroOptions macro:="PD_Ktt_Ka", Description:="Calculation of P/D based on KTT for nozzle propeller ", Category:="Ka-serie"
Application.MacroOptions macro:="J_KTT_J2_KA", Description:="Calculation of J based on KTT/J2 for nozzle propeller ", Category:="Ka-serie"
'
Application.MacroOptions macro:="KQ_B4_70_19A", Description:="Calculation of KQ for B4.70 in 19A nozzle ", Category:="B4_70_19A"
Application.MacroOptions macro:="KTT_B4_70_19A", Description:="Calculation of KTT for B4.70 in 19A nozzle ", Category:="B4_70_19A"
Application.MacroOptions macro:="KTN_B4_70_19A", Description:="Calculation of KTN for B4.70 in 19A nozzle ", Category:="B4_70_19A"
Application.MacroOptions macro:="PD_KQ_B4_70_19A", Description:="Calculation of P/D based on KQ for B4.70 in 19A nozzle ", Category:="B4_70_19A"
Application.MacroOptions macro:="PD_KTT_B4_70_19A", Description:="Calculation of P/D based on KTT for B4.70 in 19A nozzle ", Category:="B4_70_19A"

It works, but when I close Excel and open it again the functions are either in the B-serie category or in the user_defined category. I have the made a macro in my personal with the code above and associated it to a button. When I run the macro I can see all four categories with functions in the correct categories however when I close and open excel once more the problem is still there. What do I do wrong?

This is my first post so if it is in the wrong place sorry in advance.

Best regards
EEL1966

You need to call that code from the Workbook_Open event (in the ThisWorkbook module) of your workbook so that it gets run automatically when the workbook opens.

Thank you for your reply.

I have tried it and it seems to work. I have placed the following macro in "ThisWorkbook".

Private Sub Workbook_Open()
    On Error GoTo 0
    Application.ScreenUpdating = False
    ThisWorkbook.IsAddin = False
    '
    Application.MacroOptions macro:="KQ_B4_70_19A", Description:="Calculation of KQ for B4.70 in 19A nozzle ", Category:="B4_70_19A"
    Application.MacroOptions macro:="KTT_B4_70_19A", Description:="Calculation of KTT for B4.70 in 19A nozzle ", Category:="B4_70_19A"
    Application.MacroOptions macro:="KTN_B4_70_19A", Description:="Calculation of KTN for B4.70 in 19A nozzle ", Category:="B4_70_19A"
    Application.MacroOptions macro:="PD_KQ_B4_70_19A", Description:="Calculation of P/D based on KQ for B4.70 in 19A nozzle ", Category:="B4_70_19A"
    Application.MacroOptions macro:="PD_KTT_B4_70_19A", Description:="Calculation of P/D based on KTT for B4.70 in 19A nozzle ", Category:="B4_70_19A"
    '
    ThisWorkbook.IsAddin = True
    Application.ScreenUpdating = True
End Sub

However when I closes Excel I get the following question in a Yes/No/Cancel box:

Do you want to save the changes you have made to 'B4-70 19A.xlam'?

I have tried to get rid of the question with the following macro in "ThisWorkbook".

Private Sub Workbook_Close()
    On Error GoTo 0
    Application.ScreenUpdating = False
    ThisWorkbook.IsAddin = False
    Workbooks("B4-70 19A.xlam").Close savechanges:=False
    ThisWorkbook.IsAddin = True
    Application.ScreenUpdating = True
End Sub

This does not work. How do I get rid of the question?

Best regards
EEL1966

Probably because you keep changing the IsAddin property.

Note: when posting code on the forum, you must use code tags, please. I've added them for you again as it's only your second post, but please learn to use them in future.

For an overall solution, you might want to have a look at this article by Jan Karel Pieterse.
For the specific question of removing the prompt, change this in the Open event:

ThisWorkbook.IsAddin = True

to this:

With ThisWorkbook
   .IsAddin = True
   .Save
End With

Thanks - you too.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save