validations...macros...HELP PLEASE!!!

[tasgirl]

I know how to make a list using validation but I would like it to return a different value

I actually want it to retun the abrevation

so when they view the list to pick from they would see

REGT MF2
REGT MF1
OVER MF2
OVER MF1

what i would like it to return would be

01-1613
01-1614
03-1616
03-1617

lets say I would like this validation in sheet 1 Q10
the name range for the list is called TASEmployeeActingCodeDescription the range i would like it to return is named TASEmployeeActingCodes
TASEmployeeActingCodeDescription is in(sheet 2 K2:K5000) TASEmployeeActingCodes is in(sheet 2 J2:J5000)

I already have the following working in another part of the sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pick, Out, i As Integer
Pick = Array("Regular Time", "Regular Time + Shift Diff.", "Overtime", "Sleeptime", "Training Taken", "Bereavement Leave", "Lack of Shift", "Jury Duty", "Approved Requested Time Off", "Away without Approval", "TAS Personal Day", "TAS Sick", "TAS Lieu Day")
Out = Array("REGT", "RTSD", "OVER", "SLTM", "TRTK", "BELV", "0100", "JURY", "ARTO", "AWOA", "TSPR", "TSSK", "TSLU")
If Target.Column <> 7 Then Exit Sub
Application.EnableEvents = False
For i = LBound(Pick) To UBound(Pick)
If Target.Value = Pick(i) Then
Target.Value = Out(i)
Exit For
End If
Next i
Application.EnableEvents = True
End Sub


I NEED them both to work on the same sheet, just in different portions of it.

Can some one help me out with this?
I hope this makes sense

 

[Smitty]

Welcome to the Board!

Please stick to your Original Post.