ユーザー定義関数を関数の挿入ボタンを押した際の一覧でカテゴリ表示するには次の様にします。 Sub Sample50() Application.MacroOptions "Sample49", , , , , , "判定" End Sub