Problem with VBA Machine Code vs Binary...Maybe?

[SBF12345]

I have a bit of code that is returning dates values inaccurately. The search values that are generating the problem all begin with 2 as in February. Dates that begin with 2 are being found as December dates. Its as if the find function is adding a "1" before the two somehow. Not sure what to think here? Is this a machine code vs binary problem perhaps?

RngEnd2 = Cells.Find(What:=EndDate, After:=ActiveCell, LookIn:=xlFormulas, _        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(1, 1)

 

[MARK858]

What is EndDate?

 

[SBF12345]

EndDate is a Range Variable, with a value of 2/10/2010 according to Add Watch

RngEnd2 is pasting the value 12/10/2010 in the worksheet

 

[MARK858]

Do either of the below make a difference?

RngEnd2 = Cells.Find(What:=CDate(EndDate), After:=Cells(1,1), LookIn:=xlFormulas, _        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(1, 1)

RngEnd2 = Cells.Find(What:=CLng(EndDate), After:=Cells(1,1), LookIn:=xlFormulas, _        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(1, 1)

 

[SBF12345]

CDate is still taking a December date for a February. CLng is returning an error on the second iteration "object variable or with block variable not set"

 

[MARK858]

Although I don't think it will make a difference what does the below produce?

RngEnd2 = Cells.Find(What:=CDate(EndDate), After:=Cells(1,1), LookIn:=xlValues, _        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Address(1, 1)

 

[SBF12345]

It returns an error same as above

 

[MARK858]

Can you post the full code please so that I can see the variable being created and the paste.

 

[SBF12345]

Ultimately I would like to have a the correct range pasted into a location defined by the line below.

ActiveWorkbook.Sheets("ActiveSheet").Range(StartDate, EndDate).Resize(, 2).Copy

The whole chunk is below

Dim aa As IntegerDim StartDate As Range
Dim EndDate As Range
Dim RngStart As String
Dim RngEnd  As String
Dim RngEnd2 As String
Dim sh As Worksheet
Dim chrt As ChartObject
Dim ch As Chart


For aa = 5 To 24


    ActiveWorkbook.Sheets("AllDistanceMeasures").Activate


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


    ActiveWorkbook.Sheets("ActiveSheet").Activate
    
        RngStart = Cells.Find(What:=StartDate, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(1, 1)
        
        RngEnd = Cells.Find(What:=EndDate, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(1, 1)
    
    Set sh = ActiveWorkbook.Worksheets("LowDistCharts")
    Set chrt = sh.ChartObjects.Add(0, 0, 300, 300)
    Set ch = chrt.Chart
    
    With chrt
        .Height = 300
        .Width = 300
        .Top = 1 + ((aa - 4) * 200)
        .Left = 1
    End With
    
    With ch
        .HasTitle = True
        .ChartTitle.Text = aa & StartDate & " to " & EndDate
        .ChartTitle.Font.Size = 8
        .ChartType = xlLine
        .SetSourceData Source:=Range(RngStart & ":" & RngEnd)
        .SeriesCollection.Add (Worksheets(DataSht).Range(DataRange))
        .HasLegend = False
        .SeriesCollection(1).AxisGroup = 2
    End With
    
    ActiveWorkbook.Sheets("ActiveSheet").Range(StartDate, EndDate).Resize(, 2).Copy
    Sheets("LowDistCharts").Range("S3").End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues


Next aa

 

[SBF12345]

For zz = 0 To NumObs - 1    
        ActiveWorkbook.Sheets("ActiveSheet").Range(EndDate).Resize(, 2).Offset(zz, 0).Copy
        Sheets("LowDistCharts").Range("S3").End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues
    
    Next zz

I tried something like this attempting to bypass the RngStart and RngEnd assignments, but am receiving an application or object defined error on the first line inside the loop