Run-time error '9' Help

[Pookiemeister]

Private Sub cmdbtnSearch_click()            
    
    Dim totRows As Long, i As Long
    
    totRows = Worksheets("Sheet5(Slat)").Range("C3").CurrentRegion.Rows.Count
    
    For i = 3 To totRows
        If Trim(Sheet5.Cells(i, 3)) = Trim(TextBox1.Text) Then
            TextBox1.Text = Sheet5.Cells(i, 3)
            TextBox2.Text = Sheet5.Cells(i, 4)
            TextBox3.Text = Sheet5.Cells(i, 5)
            TextBox4.Text = Sheet5.Cells(i, 6)
            Exit For
        End If
    Next i
    
End Sub

I not exactly sure what is wrong with this code. I found this code from a youtube video
http://www.youtube.com/channel/UC-vzNYU9x8IYPk_r89mGvXA
This video is 11 minutes and 24 seconds long. However, the above code ends at 5 minutes and 53 seconds. I had to change some things to fit my project. I typed everything he did. So I'm not certain what I did wrong. When I click on Debug the following line of code is highlighted:

totRows = Worksheets("Sheet5(Slat)").Range("C3").CurrentRegion.Rows.Count

This is a test for another project. If I am able to fix this error then all I would have to do, I think, is substitute the names of the textboxes with my formula variables. Thank you.

 

[mrhstn]

Do you have a worksheet called Sheet5(Slat)? Is there a Sheet5 and do you have text boxes called TextBox1/2/3/4?

 

[Fluff]

As you have given us no information at all, this is a pure guess.

totRows = Sheet5.Range("C3").CurrentRegion.Rows.Count

 

[Pookiemeister]

This is a test for another project.

Why am I getting this error for this line of code. Yes, sheet 5 is named slat. The code below is where Debug states the error is located.

totRows = Worksheets("Sheet5(Slat)").Range("C3").CurrentRegion.Rows.Count

thank You

 

[MARK858]

If what Fluff posted doesn't work (you haven't responded to that post and I am not 100% sure if Sheet5 is the codename or the Index) try...

totRows = Worksheets("Slat").Range("C3").CurrentRegion.Rows.Count