Userform - Insert File's last saved Date

Hello mcp21x,

This function will return the date the active workbook was last saved.

Function WorkbookLastSaved() As Date

  Dim FSO As Object
  Dim FilePath As String
  
    FilePath = ThisWorkbook.FullName
    
      Set FSO = CreateObject("Scripting.FileSystemObject")
      WorkbookLastSaved = FSO.GetFile(FilePath).DateLastModified
    
    Set FSO = Nothing
    
End Function