Excel - insertar formato

hola a todos de nuevo solicito su ayuda para lo siguiente, tengo esta macro, la cual evalua datos de la columna A y si cumple con ello, en la celda de al lado coloca un mensaje, lo que necesito es que ademas de que inserte el mensaje la celda donde se escribe el mensaje se rrellene de color amarillo honestamente ya intente muchas cosas y no logro hacelo espero puedan ayudarme
saludos y gracias

Sub INSERTAR()
Range("a1").Select

Do While ActiveCell <> ""

If ActiveCell.Value >= 3 Then

Cells(ActiveCell.Row, 2) = "CUMPLE"
ActiveCell.Offset(1, 0).Select
Else

Cells(ActiveCell.Row, 2) = "NO CUMPLE"
ActiveCell.Offset(1, 0).Select
End If

Loop

End Sub

a ver si este 'ejemplito' te ayuda...

Range("A1").Interior.Color = VBA.ColorConstants.vbYellow

Saludos, desde Baires, JuanC

hola juan eres muy amable con tu respuesta como siempre, solo que la verdad no es lo que espero o no supe como interpretar tu solucion a mi problema, mira el fin de la macro es evaluar cada celda que contenga un numero, y que cada celda que cumpla con la condicion primero vaya a la celda de al lado y la rellene de amarillo y segundo le escriba "cumple" o "no cumple" en la macro para que escriba la palabra "cumple" la celda debe contener un numero mayor o igual que 3

espero me ayudes saludos

A B

1 1 NO CUMPLE

2 1 NO CUMPLE

3 3 CUMPLE (CELDA B3 CON COLOR DE RELLENO AMARILLO)

4 7 CUMPLE (CELDA B3 CON COLOR DE RELLENO AMARILLO)

retocando el código que hiciste...

Sub INSERTAR()
Range("a1").Select
Do While ActiveCell <> ""
If ActiveCell.Value >= 3 Then
ActiveCell.Offset(0, 1).Value = "CUMPLE"
ActiveCell.Offset(0, 1).Interior.Color = vbYellow
Else
ActiveCell.Offset(0, 1).Value = "NO CUMPLE"
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Saludos, desde Baires, JuanC

juan nuevamente mil gracias eres muy amable funciona a la perfeccion

gracias y saludos