Hi DB,
My earlier post did store a number for each user logon. Code reposted with a mod now to display the current logged on user in A1 and the times they have opened this file in B1.
Cheers
Dave
Private Sub Workbook_Open()
Dim CurUser As String
CurUser = Environ("Username")
With ThisWorkbook
.Sheets(1).Range("A1").Value = CurUser
.Sheets(1).Range("B1").Value = GetSetting("Counter", "Value", CurUser & " " & .Name, 1)
SaveSetting "Counter", "Value", CurUser & " " & .Name, Sheets(1).Range("B1").Value + 1
End With
End Sub