Error 2042 - Returning Row Information

I have a userform that finds any instance of the user inputted search and tells you which sheet its in and allows u link to them. I also have a number of text boxes that I want populated with the information found on only the activesheet, not both. Currently I get a type mismatch error, and whilst it populates the information in debug mode I also get a Error 2042 on the following

TextBox5.Text = Cells(rngFind.Row, 2)

Option Explicit
Sub locate(Name As String, Data As Range)
Dim rngFind As Range
Dim strFirstFind As String
Dim Find As String
With Data
Set rngFind = ActiveWorkbook.Sheets(1).Cells.Find(Name, LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
strFirstFind = rngFind.Address

Do
If rngFind.Row > 1 Then
ListBox1.AddItem rngFind.Value.....................