Hello from Steved

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

The above works by moving the cursor over say City it then
changes it to 1-City, so I believe I am getting there,
just need it to to as I paste into Excel workSheet.
Cheers.

-----Original Message-----
Hello from Steved. Please is the below possible.
The below VBA will allow me to type City and it will
change to 1-City. Can the below be taken one step further,
I copy from Paradox then paste into excel worksheet which
has the below VBA. Is it possible when I paste it from
Paradox into the excel worksheet it will find City then
change it to 1_City.

Thankyou.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ws_exit
With Target
Select Case UCase(Left(.Value, 4))
Case "CITY": .Value = "1-City"
End Select
End With

ws_exit:
Application.EnableEvents = True
End Sub

.