Please Help!! I am Trying to search this sheet for TxtCaseName, Then
Copy Cell 42 this is what it should say i think...
am i doing something wrong?it gives me the error Object Variable not
set :(


Private Sub CmdPrint_Click()
Dim sh As Worksheet
Dim WrdApp As New Word.Application
Dim wrdDoc As New Word.Document

sh.Columns(1).Range("A5").Find(What:=TxtCaseName,
LookIn:=xlFormulas).Offset(0, 42).Copy

' Create a new Word Document
Set wrdDoc = WrdApp.Documents.Add(DocumentType:=wdNewBlankDocum ent)
WrdApp.Visible = True

WrdApp.Selection.Paste

Set wrdDoc = Nothing
Set WrdApp = Nothing

End Sub