Hello bodiewil,

To add the file size ...
      'Display file properties in columns "A:C" starting at row 1
       For Each FileItem In SourceFolder.Files
         R = R + 1
         Cells(R, "A") = FileItem.Name
         Cells(R, "B") = FileItem.DateLastModified
         Cells(R, "C") = FileItem.Size
       Next FileItem