I am using the code below to save the time (time5.text) in a cell. It is all
working fine. What I want to do is put an if statement in that when certain
criteria are met the same value etc gets written but in blue coloured text in
the spreadsheet.


Range("G" & riderCell.Row).End(xlToRight).Offset(0, 1) = Time5.Text

Something along the lines of

If blah blah is true Then
Range("G" & riderCell.Row).End(xlToRight).Offset(0, 1) = Time5.Text
Range("G" & riderCell.Row).End(xlToRight).Offset(0, 1).forecolor = vbblue
Endif

Thanks