Object Required in Find statement VBA

[SBF12345]

I am receiving an object required error on the following line within the context below. The variable StartDate is a Date data type. I would like for RngStart to be a Range value that I can plug in to the line:

ActiveChart.SetSourceData Source:=Sheets("ActiveSheet").Range(RngStart, RngEnd)

The line immediately below is generating the error:

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

Dim aa As IntegerDim StartDate As Range
Dim EndDate As Range
Dim RngStart As Range
Dim RngEnd  As Range


For aa = 5 To 24


    ActiveWorkbook.Sheets("AllDistanceMeasures").Activate


    Set StartDate = Cells(aa, 9)
    Set EndDate = Cells(aa, 10)


    ActiveWorkbook.Sheets("ActiveSheet").Activate
    
        Set RngStart = Cells.Find(What:=StartDate, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select

 

[MARK858]

Maybe?

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

Although I don't know what you need the Select for.

 

[SBF12345]

Got it working. I dropped the select statement altogether.