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
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