Gravando histórico de alterações na planilha COM USUÁRIO

[comar]

Olá,

Esse é um assunto já discutido nesse fórum.
Porem, para a solução (abaixo), resolver meu problema falta apenas registrar também o usuário que realizou alterações.

Peguei no fórum esta solução, que também é composta de um arquivo com a Sheets("História"), onde são gravadas as alterações.
Alguem poderia me ajudar, com algum código que também registre o usuário.

Att.

Henry

Tópico: http://www.tomasvasquez.com.br/blog/mic ... a-planilha

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wsHist As Worksheet, Rng As Range
Set wsHist = Sheets("História")
If Sh Is wsHist Then Exit Sub
Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
With Rng
.Value = Now
.Offset(, 1) = Sh.Name
.Offset(, 2) = Target.Address
If Target.Cells.Count > 1 Then
.Offset(, 3) = "Valores Alterados"
Else
.Offset(, 3) = Target.Formula
End If
End With
End Sub
Este código deve ser colocar dentro do módulo EstaPasta_de_trabalho (ThisWorkbook).