Suppose your data is in range A1:B10 on worksheet "data" (col. A holds handler name, col B holds dog name):

[vba]Sub PopulateLB()
Dim oCell As Range
With ListBox1
.ColumnCount = 2
.ColumnHeads = False
For Each oCell In Worksheet("Data").Range("A1:A10")
.AddItem oCell.Value
.List(.ListCount - 1, 1) = oCell.Offset(, 1).Value
Next
End With
End Sub
[/vba]