Problema con macro

Hola grupo, quisiera que si tenéis un momento me revisarais esta macro:
Sub Valores()
'Valores menores de 5
For i = 1 To 10
If Cells(i, 1).Value = 5 Then
Cells(i, 2).Value = "Igual a Cinco"
Cells(i, 1).Resize(1, 2).Interior.ColorIndex = 4
End If
Next i
Tengo en la Columna A1:A10 los números del 1 al 10 y en B1:B10 quisiera que
cuando es igual a 5 escriba "Igual a cinco" y coloree las celdas.
Pues bien cuando lo ejecuto me dice: "No se puede ejecutar c´codigo en modo
de interrupción" y se pone en color amarillo la primera linea de la macro es
decir Sub Valores()
¿podéis ayudarme a corregir este código? Gracias por anticipado y un saludo
Josema