.Find function trigger's error

[bradgar]

I am trying to have a sub to take data from one sheet and place in another. The variable to look for is from the sheet I need to fill, the lookup of the info (based on that number) is on the other.

Private Sub trKr_Click()
Dim rga As String
Dim fC As Range
Range("H8").Value = InputBox("Please enter the RGA number you want to Track", "RGA Tracker")
rga = Sheets("RGA Overview").Range("H8").Value
cusT = Sheets("RGA Overview").Range("E10").Value

With Application
    ScreenUpdating = False
        With ActiveWorkbook
            With Sheet2
                .Activate
                Set fC = Cells.Find(What:=rga, after:=Range("A1"), LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
                    'fC.Select
                MsgBox fC & " " & fC.Row & " " & rga
                cusT = Sheets("RGA Information").Range("D" & fC.Row).Value
            End With
        End With
    ActiveWorkbook.Sheets("RGA Overview").Select
    ScreenUpdating = True
End With
End Sub

 

[bradgar]

It's actually " Set fC = Columns(1).Find.....

and it returns Object Variable or With block variable not set. Runtime 91

I have code just like this in other workbooks and it works perfectly but for some reason it is not recognizing my object here. The entry I type in exists, and in Column 1 ....

 

[bradgar]

Figured it out.

With Application
    ScreenUpdating = False
        With ActiveWorkbook
                Set fC = Worksheets("RGA Information").Columns("A").Find(What:=rga, After:=Range("A1"), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
                MsgBox fC & " " & fC.Row & " " & rga
                Worksheets("RGA Overview").Select
                Sheets("RGA Overview").Range("E10").Value = Sheets("RGA Information").Range("D" & fC.Row).Value