
            .CellDetails iRow, 12, "READ"
         End If
         
         ' ID marker:
         .CellDetails iRow, 13, iRow
                  
         
      Next iRow
      
      
      ' Add the columns to the menu:
      For iCol = 1 To .Columns
         If (.ColumnVisible(iCol)) And (iCol &lt;&gt; 14) Then
            If (iMenu &gt; 0) Then
               Load mnuColumns(iMenu)
               mnuColumns(iMenu).Visible = True
            End If
            If (.ColumnHeader(iCol) = "") Then
       