VBA -- Compare two dates and map "Yes" or " No" -- Getting Syntax Error at FormulaR1C1

Dear all,

I'm trying to compare two dates from two different column values. If they are same, I need to map as "Yes" and otherwise "No".

I've written a Formula and getting an error at the following line in my code:

ActiveCell.FormulaR1C1 = "=IF(RC[" & M_SD_Col - M_NS_Col & "]" & "=" & "RC[" & M_TD_Col - M_NS_Col & "]" & ",'Yes',No')"

Goal is to calculate the same using formula.

Ex:

	A	B	C
Emp No	Start Date	Term Date	No Show?
1	3/6/2017	3/6/2017
2	11/28/2016

In the end, value under "No Show?" column should be:

=IF(A2=B2),"Yes","No"

PFA for the sheet with error at the code mentioned above.

Request your help in fixing this line of code

Thanks,
Vinod Krishna

Why not just place this formula in cell D2 and copy it down:
=IF(B2=C2,"Yes","No")

Here you go.

ActiveCell.FormulaR1C1 = "=IF(RC[" & M_SD_Col - M_NS_Col & "]" & "=" & "RC[" & M_TD_Col - M_NS_Col & "]" & ",""Yes"",""No"")"

Try:

Sub NoShow()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim sDateCol As Long, tDateCol As Long, NoShowCol As Long
    sDateCol = Rows(1).Find("Start Date").Column
    tDateCol = Rows(1).Find("Term Date").Column
    NoShowCol = Rows(1).Find("No Show?").Column
    Cells(2, NoShowCol).FormulaR1C1 = "=IF(RC[-2]=RC[-1],""Yes"",""No"")"
    Cells(2, NoShowCol).AutoFill Destination:=Range(Cells(2, NoShowCol), Cells(LastRow, NoShowCol))
    Range(Cells(2, NoShowCol), Cells(LastRow, NoShowCol)).Value = Range(Cells(2, NoShowCol), Cells(LastRow, NoShowCol)).Value
    Application.ScreenUpdating = True
End Sub

You are very welcome.