Public Sub UpdateContacts()
On Error GoTo Err_UpdateContacts
Dim olNS As NameSpace
Dim olContactFolder As Folder
Dim olContactItem As ContactItem
Dim olItems As Outlook.Items
Set olNS = Application.GetNamespace("MAPI")
Set olContactFolder = olNS.GetDefaultFolder(olFolderContacts)
Set olItems = olContactFolder.Items.Restrict("[MessageClass]='IPM.Contact'")
For Each olContactItem In olItems
'If olContactItem.CompanyName = "ABC Company" Then
'do whatever you want to do here
'End If
Debug.Print olContactItem.LastName
Next
Exit_UpdateContacts:
Set olContactItem = Nothing
Set olItems = Nothing
Set olContactFolder = Nothing
Set olNS = Nothing
Exit Sub
Err_UpdateContacts:
MsgBox Err.Number & ", " & Err.Description, , "Error"
Resume Exit_UpdateContacts
End Sub