Sub Macro2()
    Dim cell As Range
    For Each cell In Selection
        'If Not IsNumeric(cell.Value) Then
        If cell.Value = Ajeet Then
            cell.Interior.ColorIndex = 50
        End If
    Next

    For Each cell In Selection
        'If Not IsNumeric(cell.Value) Then
        If cell.Value = Dil Then
            cell.Interior.ColorIndex = 3
        End If
    Next

    For Each cell In Selection
        'If Not IsNumeric(cell.Value) Then
        If cell.Value = D Then
            cell.Interior.ColorIndex = 20
        End If
    Next
End Sub