Hi! I have a macro that shows in a messagebox who used the most recent user
of a file is. It runs when the workbook is opened. Now I want to show who and
when saved the file the last time. How do I do that? Thanks!

Sub Auto_Open()
   Dim lngRäknare As Long, strSenastÖppnad As String
   Dim strMeddelande As String, strSenastAnvänd As String, strSenastSparad
As String

   'Hämtar data från Registry
   lngRäknare = GetSetting("Filinformation", "Fildata", "Antal", 0)
   strSenastÖppnad = GetSetting("Filinformation", "Fildata", "Öppnad", "")
   strSenastAnvänd = GetSetting("Filinformation", "Fildata", "Använd", "")
   strSenastSparad = GetSetting("Filinformation", "Fildata", "Sparad", "")
   'Visa information i messagebox
   strMeddelande = "Den här filen är öppnad " & lngRäknare & " gånger."
   strMeddelande = strMeddelande & vbNewLine & "Filen var senast öppnad: " _
   & strSenastÖppnad
   strMeddelande = strMeddelande & vbNewLine & "Filen användes senast av " _
   & strSenastAnvänd
   
   MsgBox "test" & strSenastSparad

   MsgBox strMeddelande, vbInformation, ThisWorkbook.Name

   'Uppdatera informationen och lagra den nya
   lngRäknare = lngRäknare + 1
   strSenastÖppnad = Date & " " & Time
   strSenastAnvänd = Application.UserName

   SaveSetting "Filinformation", "Fildata", "Antal", lngRäknare
   SaveSetting "Filinformation", "Fildata", "Öppnad", strSenastÖppnad
   SaveSetting "Filinformation", "Fildata", "Använd", strSenastAnvänd

End Sub