On Error Resume Next ' Because some columns may have been deleted through
       the UI
      lFileCol = .ColumnIndex("file")
      lCol8 = .ColumnIndex("col8")
      lSizeCol = .ColumnIndex("size")
      lTypeCol = .ColumnIndex("type")
      lDateCol = .ColumnIndex("date")
      lCol5 = .ColumnIndex("col5")
      On Error GoTo 0
      
      For lRow = 1 To .Rows
         If (chkRnd.Value = Checked) Then
            .RowHeight(lRow) = Rnd * 48 + 16
         Else
            .RowHeight(lRow) = .DefaultRowHe