Record Actions

[Martin]

Hello,

I was wondering if there was a way of making a note of a users actions,
either from keyboard or mouse i.e. right hand mouse click | delete.

I have the following code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets(Environ("username")).Range("A2").Value = Empty Then
Sheets(Environ("username")).Range("A2").Value = Target.Address

Else

Worksheets(Environ("username")).Range("A65536").End(xlUp)(2).Value =
Target.Address

End If

End Sub

This records the cell that the user has changed so all I need now is to
record the action. Is this possible?

Thanks in advance.

Martin