What do you want to export to project? Tasks? Try code like
Dim Proj As MSProject.Application
Sub AAA()
On Error Resume Next
Set Proj = GetObject(, "MSProject.Application")
If Err.Number <> 0 Then
Set Proj = CreateObject("MSProject.Application")
End If
Proj.ActiveProject.Tasks.Add Name:=Range("A1").Text
End Sub
You will likely get better answers in a Project newsgroup.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com