Not sure exactly what you mean by '... copy and past this value into 'B1'
....', but I just ran it referring myItem.Start to range("B1"), with a
date-time in B1 and it ran fine.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Be Guy" wrote in message
...
The code below works fine as is. However if I change the
value for the myItem.Start to 'Range("B1").value and copy
and past this value into 'B1', it errors with 'Type
Mismatch: Unable to coerce parameter value ... Tried .Text
same result different error. What am I missing here?

Sub AppointSet()
Dim myItem, myOlapp
Set myOlapp = CreateObject("Outlook.Application")
Set myItem = myOlapp.CreateItem(olAppointmentItem)
myItem.Subject = Range("A1") 'value is "Testing"
myItem.Location = "Conference Room B"
myItem.Start = #5/11/2004 10:00:00 AM#
myItem.Duration = Range("C1").Value 'value is 30
myItem.Save
End Sub

Thanks
Be Guy