Hi Gerben,
the thing is that empty cell value is not " " but "".

Sub recol()
For Each ccell In Selection
If ccell.Value = "" Then GoSub colorit
If ccell.Value = 1 Then GoSub colorit
Next
Exit Sub
colorit:
ccell.Interior.ColorIndex = 20
Return
End Sub