Hello all. I keep getting a Runtime Error 13 Type mismatch for th
following code:


code:
--------------------------------------------------------------------------------

Public Sub SendToWord()
Dim CAP As Range
Dim myWord As Word.Application
Set CAP = Sheets("InitialAssessments").UsedRange
CAP.Copy
Set myWord = New Word.Application
With myWord
.Visible = True
.Activate
myWord.Documents.Open _
Filename:="C:\Documents and Settings\chrisv\Desktop\HBC2\Repor
Document\HBC Reporting Document.doc"
With Selection
myWord.ActiveDocument.Bookmarks("InitialAssessment s").Select
.Item("InitialAssessments").Range.Text = CAP.PasteSpecia
<-----PROBLEM WITH THIS LINE
End With
End With
End Sub

--------------------------------------------------------------------------------




I am trying to copy a used range in Excel and copy it at the 'Initia
Assessments' Bookmark in Word.

Suggestions??

And as always, thanks for the hel

--
Message posted from http://www.ExcelForum.com