sorry for the late response.
i was busy preparing performance report of 2018Q1
what i understand is coded below.
Sub vbax_62823_list_and_hyperlink_all_files_in_specific_folder()
'http://www.vbaexpress.com/forum/showthread.php?62823-Automatic-Hyperlink-documents-in-excel-workbook-using-a-command-button
Dim FilesPath As String
Dim FilesInFolder
Dim i As Long, StartRow As Long, DtColNum As Long
FilesPath = "C:\Document Received\" & Format(Date, "yyyy-mm-dd") & "\"
'change "C:\ to suit. care to include the trailing "\" in fullpath name
FilesInFolder = Split(CreateObject("WScript.Shell").Exec("cmd /c Dir """ & FilesPath & "*.*"" /b /o:n").StdOut.ReadAll, vbCrLf)
With Sheets("Documents Recieived")
.Range("A8:B" & .Rows.Count).ClearContents
'remove this line if you want to keep the list of the files from precious dates
StartRow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(StartRow, 1).Resize(UBound(FilesInFolder)) = Application.Transpose(FilesInFolder)
For i = LBound(FilesInFolder) To UBound(FilesInFolder) - 1
.Hyperlinks.Add Anchor:=.Cells(i + StartRow, 1), Address:=FilesPath & FilesInFolder(i), TextToDisplay:=Split(FilesInFolder(i), ".")(0)
Next i
DtColNum = .Cells(4, .Columns.Count).End(xlToLeft).Offset(, 1).Column
.Cells(4, DtColNum) = Day(Date)
.Cells(5, DtColNum) = Month(Date)
.Cells(6, DtColNum) = Year(Date)
End With
End Sub