 sFnt2.Name = "Times New Roman"
   sFnt2.Bold = True
   sFnt2.Size = 12
     
   
   With grdThis
      
      .Redraw = False
      .Rows = CLng(txtRows.Text)
      Max = .Rows
      
      ' For performance, look up the column indices once rather than
      ' each time around in the loop.  This can make population more
      ' than twice as fast
      Dim lFileCol As Long
      Dim lCol8 As Long
      Dim lSizeCol As Long
      Dim lTypeCol As Long
      Dim lDateCol As Long
      Dim lCol5 As Long
      