speaks for itsself really trying to send cell entries to outlook new
contacts on an event

Dim OutApp As Outlook.Application
Dim Newcon As Outlook.ContactItem
Set OutApp = CreateObject("Outlook.Application")
Set Newcon = OutApp.CreateItem(olContactItem)

If Target.Row = 14 And Target.Column = 1 Then
With Newcon
..FullName = Range("E1").Value
..MobileTelephoneNumber = Range("A11").Value
..Email1Address = Range("A12").Value
..HomeAddress = Range("A10").Value
End With
End If

no luck so far cant see where the code is wrong or am i being really
silly please help


--
short_n_curly
------------------------------------------------------------------------
short_n_curly's Profile: http://www.excelforum.com/member.php...o&userid=21576
View this thread: http://www.excelforum.com/showthread...hreadid=385290