Searching and Then Copy Cell to word

G

gwoodby

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:=wdNewBlankDocument)
WrdApp.Visible = True

WrdApp.Selection.Paste

Set wrdDoc = Nothing
Set WrdApp = Nothing

End Sub
 
J

Joel

from
sh.Columns(1).Range("A5").Find(What:=TxtCaseName,
LookIn:=xlFormulas).Offset(0, 42).Copy
to
set c = sh.Columns(1).Range("A5").Find(What:=TxtCaseName,
LookIn:=xlFormulas)
if not c is nothing then
c.Offset(0, 42).Copy
end if
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top