hi, can someone help me to fix this? Do While 0 < Count If Task.Finish > DateTime.Now Then Font Color:=1 End If Loop