How to Insert User Initial and Date Stamp in excel on double click?

[mistylsand]

I have an excel spreadsheet that is a checklist and once items are complete i would like the users to double click the cells and it stamp their initials and the date. I have seen others ask the same thing and they have come up with code to pull the username and date which is working for me but i only want the user initials. I have not been able to find any other code pulling the initials that actually work.
I would also like 2 options 1 with the date and 1 without the date.

Does anyone know how to get the user initials and date stamp on double click? I also have a range of cells i need this to apply to N2:AQ2000

 

[Norie]

This would put the initials followed by the date in any cell double clicked in N2:AQ2000.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strInitials As String

    strInitials = Join(Evaluate("LEFT({""" & Replace(Application.UserName, " ", """,""") & """})"), "")
    
    If Not Intersect(Target, Range("N2:AQ2000")) Is Nothing Then
        Cancel = True
        Application.EnableEvents = False
        Target.Value = strInitials & "-" & Date
        Application.EnableEvents = True
    End If
    
End Sub

 

[mistylsand]

You are totally awesome, this is exactly what i needed!! Thank you so much!