'Working with Enumerated Types Public Enum PersonTypeList Client = 10 PersonalContact = 5 Vendor = 2 Other = 999 End Enum Sub EnumM() Dim pt As PersonTypeList pt = Client Debug.Print pt End Sub