Excel to Outlook

[bodylojohn]

Hello everyone,

I haven an excel sheet containing contact information.

In cell A1 is the firstname of the contact.

I made a button on the excel sheet. When I press it it should UPDATE the firstname in the cell to outlook contacts.

I have build some code wich ADDS a NEW contact to outlook.
That code works fine.

BUT...

I just want to change the firstname of that contact and I dont want to add a NEW contact.

I hope that you guys can help me.

Sub MakeContact()
 
    Dim olApp As outlook.Application
    Dim olCi As outlook.ContactItem
 
    Set olApp = New outlook.Application
    Set olCi = olApp.CreateItem(olContactItem)
 
 
 
 
 
    With olCi
        .FirstName = Cells(1, 1)
'        .LastName = "Kusleika"
'        .MobileTelephoneNumber = "(402) 555-1212"
'        .Email1Address = "[email protected]"
'        .HomeAddressStreet = "111 S 1st"
'        .HomeAddressCity = "Omaha"
'        .HomeAddressState = "NE"
'        .HomeAddressPostalCode = "68100"
'        .SelectedMailingAddress = olHome
'        .Categories = "Business, Personal"
        .Save
    End With
 
    Set olCi = Nothing
    Set olApp = Nothing
 
End Sub