sub ColoursM()

Range ("A1").select

Do until activecell.value =""
if activecell.value = 123 or 234 then
activecell.Interior.ColorIndex = 25
else if
activecell.value = 456 then
activecell.interior.colorIndex=45
End if
activecell.offset(1,0).select
loop

End Sub