Const HKEY_LOCAL_MACHINE = &H80000002' read the value of a setting for the VBA editor from the Registry'' Possible values for SettingName are:' AutoQuickTips2 (0/1)' AutoStatement2 (0/1)' AutoValueTips2 (0/1)' BackGroundCompile (0/1)' CompileOnDemand (0/1)' DragDropInEditor (0/1)' EndProcLine (0/1)' FontFace (a string, eg "Courier New")' FontHeight (an integer number)' OBGroupMembers (0/1) (OB=Object Browser=' OBSearchHeight (an integer number)' RequireDeclaration (0/1)'' If you pass an unrecognized setting name, it raises error 5'' Requires the GetRegistryValue functionFunction GetVBASetting(ByVal SettingName As String) As Variant GetVBASetting = GetRegistryValue(HKEY_CURRENT_USER, _ "SoftwareMicrosoftVBAMicrosoft Visual Basic", SettingName, "***") If GetVBASetting = "***" Then Err.Raise 5End Function