
            lCol = vbButtonFace
         Else
            lCol = -1
         End If
         
         ' from:
         If (iRow &lt; 16) Then
            .CellDetails iRow, 8, sFrom(iIdx), , , , lCol, sFntUnread
         Else
            .CellDetails iRow, 8, sFrom(iIdx), , , , lCol
         End If
         
         ' subject:
         iIdx = Int(Rnd * 9) + 1
         If (iRow &lt; 16) Then
            .CellDetails iRow, 9, sSubject(iIdx), , , , lCol, sFntUnread
         Else
            .CellDetails iRo