Show user that last modified workbook in a cell on a workbook

[mandy4514]

I want to show users the last person to save the workbook in the workbook for other users to see. How can I do this?[TABLE="width: 500"]
<tbody>[TR]
[TD]This form was last edited by:[/TD]
[TD](automatically generate name here)[/TD]
[/TR]
</tbody>[/TABLE]

 

[AkaTrouble]

Sub Test()

Sheets("Consolidated Summary").Range("G4").Value = Environ("username")

End Sub

or other way round

Sub Test()

Sheets("Consolidated Summary").Range("G4").Value = Application.UserName

End Sub

 

[mandy4514]

Thanks for all your help!