Hi Steved,

Try:

'==============
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ws_exit
With Target
Select Case LCase(Left(.Value, 4))
Case "city": .Value = "1-City"
Case "rosk": .Value = "2-Rosk"
Case "papa": .Value = "3-Papa"
Case "wiri": .Value = "4-Wiri"
Case "shor": .Value = "5-Shor"
Case "orew": .Value = "6-Orew"
Case "swan": .Value = "7-Swan"
Case "panm": .Value = "8-Panm"
Case "waih": .Value = "9-Waih"
End Select
End With

ws_exit:
Application.EnableEvents = True
End Sub

'<<==============

Note that all the Case tests have been changed to lower case.


---
Regards,
Norman



"Steved" wrote in message
...
Hello from Steved

Below is not working I've got "City" in Col B is this my issue, if not
what is wrong please. example change "City" to "1-City"

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ws_exit
With Target
Select Case LCase(Left(.Value, 4))
Case "City": .Value = "1-City"
Case "Rosk": .Value = "2-Rosk"
Case "Papa": .Value = "3-Papa"
Case "Wiri": .Value = "4-Wiri"
Case "Shor": .Value = "5-Shor"
Case "Orew": .Value = "6-Orew"
Case "Swan": .Value = "7-Swan"
Case "Panm": .Value = "8-Panm"
Case "Waih": .Value = "9-Waih"
End Select
End With

ws_exit:
Application.EnableEvents = True
End Sub

Thankyou.