w, 9, sSubject(iIdx), , , , lCol
         End If
         
         ' date:
         dDate = Now
         dDate = DateAdd("m", -Rnd * 12, dDate)
         dDate = DateAdd("d", -Rnd * 31, dDate)
         dDate = dDate + TimeSerial(Rnd * 24, Rnd * 60, Rnd * 60)
         If (iRow &lt; 16) Then
            .CellDetails iRow, 10, dDate, , , , lCol, sFntUnread
         Else
            .CellDetails iRow, 10, dDate, , , , lCol
         End If
         
         ' to:
         If (iRow &lt; 16) Then
            .Cel