Private Sub UserForm_Initialize() Dim nme As Name For Each nme In Names lstNames.AddItem nme.Name & " " & nme.RefersTo Next nme End Sub