Run time error in find method using vba

[nit22]

I am trying to find the data in excel using word vba. Problem is it shows an run time error in find line.

Error number = 13
Error = Type mismatch

dim rcell as range
Dim wb As Excel.Application
Set wb = New Excel.Application
wb.Workbooks.Open (fullnameofxls)
wb.activeworkbook.Activate

Set rCell = Cells.Find(What:=find_text, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)

If rCell Is Nothing Then
MsgBox "Data Missing"
End If

[hazzainuk]

This isn't the best way to do it as if it does work it will invariably be that little bit slower. However you might want to try taking out the 'as range' you put after 'dim rcell'. If that doesn't work put 'as variant' after it. That may work. Type mismatch means you have the wrong datatype normally.

[nit22]

This isn't the best way to do it as if it does work it will invariably be that little bit slower. However you might want to try taking out the 'as range' you put after 'dim rcell'. If that doesn't work put 'as variant' after it. That may work. Type mismatch means you have the wrong datatype normally.

Thanks hazzainuk. It is working fine. Thanks a lot