Thanks to all for there post. I have looked over everything and the reality is that the coding knowledge needed to make this work is something I don't have. I know I need to use one of the three DURATION related objects shown below:

[VBA]
With CreateObject("shell.application").namespace(***.Path & "\")
c370 = .getdetailsof(.Items.Item(***.Name), 21)
End With

With CreateObject("shell.application").namespace(***.Path & "\") c470 = split(.getdetailsof(.Items.Item(***.Name), -1),vblf)(3)
End With

With CreateObject("shell.application").namespace(***.Path & "\") c470a=mid(join(filter(split(.getdetailsof(.Items.Item(***.Name), -1),vblf),"Duration: "),""),11)
End With

[/VBA]

My problem is I don't know how to integrate it with Tinbendr's code below:

[VBA]
Sub ListMyFiles(mySourcePath, IncludeSubfolders) Dim MyObject As FileSystemObject Dim mySource As Folder Dim myFile As File Set MyObject = New Scripting.FileSystemObject Set mySource = MyObject.GetFolder(mySourcePath) On Error Resume Next For Each myFile In mySource.Files iCol = 2 Cells(iRow, iCol).Value = myFile.Path iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Name iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Size iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.DateLastModified iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Type iRow = iRow + 1 Next If IncludeSubfolders Then For Each mySubFolder In mySource.SubFolders Call ListMyFiles(mySubFolder.Path, True) Next End If End Sub
[/VBA]

Any assistance in code integration will be tremendously appreciated. Thank you very much.