        ' set the attachment:
         If Rnd * 20 &gt; 17 Then
            iIconAttach = 14
         Else
            iIconAttach = -1
         End If
         .CellIcon(iRow, 6) = iIconAttach
         
         ' set the Flag:
         If Rnd * 20 &gt; 18 Then
            iIconFlag = 13
         Else
            iIconFlag = -1
         End If
         .CellIcon(iRow, 7) = iIconFlag
         
         ' mark as irrelevant ("junk mail"):
         iIdx = Int(Rnd * 9) + 1
         If iIdx = 7 Or iIdx = 8 Then