VBA Worksheet / Workbook Change **Excel 2003**

[SirDraco]

On the day tab i have a list of names, when using the validation it will show a list of the full name.
I then want the VBA to then change the name to its abbreviated name.

Example:
Full Name Lookup Name
Draco Reaper Reaper, D


*Code I Was Using*
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Egress

'change this range as needed
If Not Intersect(Target, Range("J:L65536")) Is Nothing And Target.Count = 1 Then

'change the vlookup range as needed: this points to looking up the conversion table
Target = WorksheetFunction.VLookup(Target, Sheets("Crew Names").Range("B3:C65536"), 2, 0)

End If

Egress:
End Sub
*Code I Was Using*

The problem i now have is that i have a list of 4+ out bases each with a list of staff names.
So i need it to go by each one to find the correct out base and then display the correct name for that out base.