Error Checking Assistance
 

How can I get this to not stop when I receive an error and put a blank in
that range.
I am receiving a run-time error
[CDO - MAP_E_NOT_FOUND(8004010F]]

----------------------------------------------------------------------------
------------------

For Each myAddressEntry In objSession.AddressLists.Item("Global Address
List").AddressEntries

If Len(myAddressEntry.fields(PR_ACCOUNT)) = 7 Then

Range("Feeder!B" & i).Value = myAddressEntry.fields(PR_DISPLAY_NAME)

If Len(myAddressEntry.fields(PR_SMTP)) = 0 Then
Range("Feeder!A" & i).Value = ""
Else
Range("Feeder!A" & i).Value = myAddressEntry.fields(PR_SMTP)
End If

If Len(myAddressEntry.fields(PR_EMS_AB_HOME_MTA)) = 0 Then
Range("Feeder!C" & i).Value = ""
Else
Range("Feeder!C" & i).Value =
myAddressEntry.fields(PR_EMS_AB_HOME_MTA)
End If

i = i + 1

End If

Next


Thank you