Sub ShowAddressLists_Click()
Set MyNameSpace = Application.GetNameSpace("MAPI")
Set MyAddressLists = MyNameSpace.AddressLists
MsgBox "There are " & MyAddressLists.Count & " address lists.", vbInformation
For i = 1 To MyAddressLists.Count
    Set MyAddressList = MyAddressLists.Item(i)
    MsgBox MyAddressList.Name & " is " & i & " of " _
        & MyAddressLists.Count, vbInformation
Next
End Sub