Ignore Error not working

Hello all,
I am trying to suppress the error message (green triangle top left corner of cell). I have tried

On Error Resume Next
On Error GoTo 0

At the start and end of code, but to no avail. Does anyone have any suggestions? Many Thanks! Luke

Sub mcrpasteformulaandcommentlist()
On Error Resume Next
On Error GoTo 0
    ActiveWindow.SmallScroll Down:=23
    Range("C50").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-43]C[1]=""y"",(CONCATENATE(""Well Done "",LEFT(R4C3,FIND("" "",R4C3)-1),"" you have completed "",R[-43]C[-2],"" "",R[-43]C)),IF(R[-43]C[1]=""n"",CONCATENATE(""Please use the "",R[-43]C[-2],"" user guide to complete "",R[-43]C),IF(R[-43]C[1]=""I"",""Teacher Comment Required"","""")))"
    Range("C51").Select
    ActiveWindow.SmallScroll Down:=-36
    Range("G7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=""y"",(CONCATENATE(""Well Done "",LEFT(R4C3,FIND("" "",R4C3)-1),"" you have completed "",RC[-6],"" "",RC[-4])),IF(RC[-3]=""n"",CONCATENATE(""Please use the "",RC[-6],"" user guide to complete "",RC[-4]),IF(RC[-3]=""I"",""Teacher Comment Required"","""")))"
    Range("G7").Select
    Selection.AutoFill Destination:=Range("G7:G26")
    Range("G7:G26").Select
    Range("G7:G26").Select
    Range("G8").Activate
 

Range("G7").Select
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Comments!$A$3:$A$7"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
    End With
End Sub

Solved by

Application.ErrorCheckingOptions.BackgroundChecking = False