Hi
I am currently using this code in excel to perform a function of evaluation two dates to determine which one is “Out of Order”

Function CheckDateOrder(ADate1 As Date, ADate2 As Date) As String
    Dim R As Integer
    For R = 4 To 11
        If ADate2 < ADate1 Then
            CheckDateOrder = "Out of Order"
            Cells(R, 10).Font.Bold = True
        Else
            CheckDateOrder = " "
        
        End If
    Next R
End Function
What the code will not currently do is bold the cell that contains Out of Order

Any ideas where I am going wrong

Many thanks