Hi

This is to set the font color to white:
Range("B" & i).Font.Color = vbWhite
Or:
Range("B" & i).Font.Color = rgb(255,255,255)
You can also use colorindex, but I don't know by heart what the colorindex for white is.