Error in VBA Code

[ameya]

I am getting the "object does not support this property or method error" (Run Time error 438) in the bolded line below. Any reasons as to why this does not work?

Dim rInitialDate As Range, rFinalDate As Range, rDateRange As Range, Calculation As Worksheet
    
With Worksheets("Calculation")
    [B]Set rInitialDate = .Find(What:=DateValue(InitialDate), After:=.Cells(1, 5), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlNext, SearchFormat:=False)[/B]
    Set rFinalDate = .Find(What:=DateValue(FinalDate), After:=.Cells(1, 5), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False)
    If rInitialDate Is Nothing Or rFinalDate Is Nothing Then
        MsgBox "Not able to find both dates"
    Else
        Set rDateRange = .Range(rInitialDate, rFinalDate)
    End If
End With
Dim startRow As Integer, endRow As Integer, rDateRangeIndex As Integer, rOEERange As Range
startRow = rInitialDate.Row
endRow = rFinalDate.Row
With Worksheets("Calculation")
    Set startOEECell = .Cells(startRow, 45)
    Set endOEECell = .Cells(endRow, 45)
    Set rOEERange = .Range(startOEECell, endOEECell)
End With
'to create new Range to reflect MC,Shift,Date
With Worksheets("Calculation")
    For i = startRow To endRow Step 1
        If Cells(i, 7) Is Not MC.Value Or Cells(i, 6) Is Not Shift.Value _
            Or DateValue(rDateRange(i - (startRow - 1))) < DateValue(InitialDate) _
            Or DateValue(rDateRange(i - (startRow - 1))) > DateValue(FinalDate) Then
                rDateRange(i - (startRow - 1)).Delete
                rOEERange(i - (startRow - 1)).Delete
        End If
    Next i
End With

 

[ameya]

Using the "set" function (shown in the code above a few posts back).

I have uploaded my document with data for easier visibility and understanding : http://jmp.sh/zA2Zrpb

Thanks again.

 

[ameya]

I changed part of the for loop to reflect the actual values in the cells.

If .Cells(i, 7) <> MC.Value Or .Cells(i, 6) <> Shift.Value _
            Or DateValue(rDateRange.Cells((i - (startRow - 1)))).Value > DateValue(FinalDate.Value) _
            Or DateValue(rDateRange.Cells((i - (startRow - 1)))).Value < DateValue(InitialDate.Value) Then

Here, I'm getting an error in the debugger saying "Object Required". Any ideas how to fix this?

 

[ameya]

Also changed .Cells(i, 7) to .Cells(i, 7).value
and corrected the parantheses around date value. still nothing though.