And.... just in case you are looking for the same information but from multiple files in a folder

Sub GetFileInfo()
    Dim fso As Object 
    ' FileSystemObject
    Dim folder As Object 
    ' Folder object
    Dim file As Object 
    ' File object
    Dim newSheet As Worksheet
    Dim lastRow As Long
    Dim filePath As String
    Dim i As Long
    ' Create a new sheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "File Information"
    ' Set headers
    newSheet.Cells(1, 1).Value = "File Name"
    newSheet.Cells(1, 2).Value = "Last Modified Date"
    newSheet.Cells(1, 3).Value = "Last Modified By" 
    ' Note: This might not always be available
    ' Get the path of the current workbook
    filePath = ThisWorkbook.Path
    ' Create an instance of the FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' Get the folder object
    Set folder = fso.GetFolder(filePath)
    i = 2 
    ' Start writing data from the second row
    ' Loop through each file in the folder
    For Each file In folder.Files
        newSheet.Cells(i, 1).Value = file.Name
        newSheet.Cells(i, 2).Value = file.DateLastModified
        ' Attempt to get the last modified by - this might not always work
        On Error Resume Next
        newSheet.Cells(i, 3).Value = file.Properties("Last Modified By")
        On Error GoTo 0
        i = i + 1
    Next file
    ' Autofit the columns for better readability
    newSheet.Columns("A:C").AutoFit
    MsgBox "File information has been written to the '" & newSheet.Name & "' sheet.", vbInformation
    ' Clean up object variables
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    Set newSheet = Nothing
End Sub