' Public Enum PersonTypeList Client PersonalContact Vendor Other End Enum Sub EnumM() Dim pt As PersonTypeList pt = Client Debug.Print pt End Sub