Hi Calle,
Hi! thx for the response.
That's about it but I want the new text in another cell...
How do I do that
Try something like:
'=============>>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Range("A1:A10"), Target)
If Not rng Is Nothing Then
On Error GoTo XIT
Application.EnableEvents = False
With rng
Select Case LCase(.Value)
Case "anne": .Offset(0, 1).Value = "Anne-Marie"
Case "ben": .Offset(0, 1).Value = "Benjamin"
Case Else: .Offset(0, 1).Value = "Invalid Entry!"
End Select
End With
End If
XIT:
Application.EnableEvents = True
End Sub
'<<=============
This will place the new text in the next column. To place the text
elsewhere, simply amend the offset co-ordinates or stipulate the required
address(es).