Save Username to this code

I have this code to place the last time saved in a cell. Now I would like to save username to cell A2

Can someone please advise.

Thanks

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Obviously change this to meet your requirements i.e. sheet name, cell
'and the date time format.
    Sheets("Bogie I").Range("A1").Value = Format(Now(), "dd-mmm-yy hh:mm")
End Sub