Date Last Edited

@ Walter, should also work

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.PageSetup.LeftFooter = _
"Worksheet Last Changed: " & _
Format(Now, "dd-mmm-yyyy hh:mm") &_
vbLf & _
"by: " & Application.UserName
End Sub

Walter, The code below will get the user name for you.

Declare Function wu_GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
Function ap_GetUserName() As Variant

Dim strUserName As String
Dim lngLength As Long
Dim lngResult As Long

'-- Set up the buffer
strUserName = String$(255, 0)
lngLength = 255

'-- Make the call
lngResult = wu_GetUserName(strUserName, lngLength)

'-- Assign the value
ap_GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)

End Function

@Abdul hamid,
In case Peter Atherton better understood your request, than I did, try the following macro (make sure you have at least 12 sheets in your Workbook):
-----------------
Sub NameSheets()
On Error Resume Next
For M = 1 To 12
Worksheets(M).Name = MonthName(M)
Next
End Sub
--------------------------
Michael (Micky) Avidan
“Microsoft® Answers" - Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2016)
ISRAEL

Abdul

I don't know what happened to the code, You do want to rname the sheets?

Sub NameSheets()
Dim i As Integer
Dim va As Variant
On Error GoTo 0
va = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
For i = 1 To Worksheets.Count
Worksheets(i).Name = va(i - 1) & format(Year(Now()), "-yy")
Next i
End Sub

I have a shared workbook with several named sheets, how would you change the macro to the last user and date? the user is unique to the computer and in code so their name doesn't actually appear.

@ABDUL HAMID,
If you prefer a Macro - try the following (change the value of the variable Num from 1-12):
Sub MonthsName()
Num = 5
MsgBox MonthName(Num)
End Sub
--------------------------
Michael (Micky) Avidan
“Microsoft® Answers" - Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2016)
ISRAEL

@ABDUL HAMID,
Suppose you have the number 5 un cell A1.
In cell B1 type: =DATE(2016,A1,1) and custom format that cell as: mmmm.
--------------------------
Michael (Micky) Avidan
“Microsoft® Answers" - Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2016)
ISRAEL

Hi. I have a spreadsheet that is on a shared drive accessed by 1/2 dozen people, but the actual spreadsheet is not "shared" as such - i.e. only one person can open it at a time.
Is there a way to record who last saved the sheet?

Abdul

Try this macro, it uses month short name and adds the last two digits of the year.

To change the names in the array fill the rest of the month''s name between each quotation.

To remove the year change the line Worksheets(i).Name = va(i - 1) & format(Year(Now()), "-yy")

to
Worksheets(i).Name = va(i - 1)

HTH

How to convert Month in letter format mean if any excel sheet numbers are written like 1,2,3,4 etc and required to be converted in letter like January,February,March,April etc.