This example prompts for the name of a built-in function and then indicates whether it is enabled or disabled:

Sub WhatIsDisabled ()

Dim quest As Integer, commandName As String

commandName = Inputbox$("Enter the name of a built-in function")

quest = Session.GetCommandProfile(commandName)

If quest = rcEnabled Then

MsgBox commandName & " is enabled."


MsgBox commandName & " is disabled."

End If

End Sub