Place Name in selected Cell from UserName lookup result

[chris186h]

Hello all. I am struggling with this one.
What im trying to do is if a cell is selected in the range of C3:J30
it looks up the = Environ("username") in Settings!A1:B35 (A-usernames, B-Actual Name)
and places the Actual Name in the selected cell.
Then if the cell is selected again when it contains a value it removes the name

Many thanks for any help in advance

 

[AkaTrouble]

if i understand this code in sheet code module will insert username in any cell in range C3:J30 as soon as selected

i have pout comment line so you can select which username you would like

i am not sure on the remove name code as if re-selected it would put current user name

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("C3:J30")) Is Nothing Then
ActiveCell.Value = Application.UserName
'ActiveCell.Value = Environ("username")
End If
End Sub

you could put another IF

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("C3:J30")) Is Nothing Then
If ActiveCell.Value = "" Then
ActiveCell.Value = Application.UserName
'ActiveCell.Value = Environ("username")
Else
ActiveCell.Value = ""
End If

End If
End Sub