To get the list name when you know the field name:
Set custFields = cust.Fields
Set aCustField = custFields.Field("Bug", "BG_USER_02")
Set aCustList = aCustField.List
listName = aCustList.Name
To get the list name when you know the field name:
Set custFields = cust.Fields
Set aCustField = custFields.Field("Bug", "BG_USER_02")
Set aCustList = aCustField.List
listName = aCustList.Name