Good Morning all. I keep getting a type mismatch error with the following 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\Report Document\HBC Reporting Document.doc"
With Selection
myWord.ActiveDocument.Bookmarks("InitialAssessments").Select
.Item("InitialAssessments").Range.Text = CAP.PasteSpecial <-----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 Initial Assessments Bookmark in Word.

Suggestions??

Thanks for the help