battle lines drawn in the sand....

Sub GetWorkbookInfo()
    Dim newSheet As Worksheet
    Dim filePath As String
    Dim fso As Object 
    ' FileSystemObject
    Dim file As Object 
    ' File object
    ' Create a new sheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "Workbook Info"
    ' 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"
    ' Get the full path of the current workbook
    filePath = ThisWorkbook.FullName
    ' Create an instance of the FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' Get the file object
    Set file = fso.GetFile(filePath)
    ' Write the information to the new sheet
    newSheet.Cells(2, 1).Value = file.Name
    newSheet.Cells(2, 2).Value = file.DateLastModified
    ' Attempt to get the last modified by
    On Error Resume Next
    newSheet.Cells(2, 3).Value = file.Properties("Last Modified By")
    On Error GoTo 0
    ' Autofit the columns
    newSheet.Columns("A:C").AutoFit
    MsgBox "Workbook information has been written to the '" & newSheet.Name & "' sheet.", vbInformation
    ' Clean up object variables
    Set file = Nothing
    Set fso = Nothing
    Set newSheet = Nothing
End Sub