Выпадающий список VBA

Question

У меня есть Sheet1 как данные

Column J 
Name of header AccNo

Вкл. Sheet2 я делаю выпадающий список

891-0001 PARKING EXPENSES
891-0002 AIRFARE EXPENSES

Я хочу показать выпадающий список на Sheet1 из этогоSheet2 но показать результат 891-0001 только.Пожалуйста, помогите с кодом макроса.

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$1" Then     'Cell J1 is the dropdown list
    On Error GoTo errorhandler
    Application.EnableEvents = False
    Selection.Validation.Delete
    Target.Value = Left(Target.Value, 8)
    Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=List"   'Define selection as List name
 End If

ErrorExit:
Application.EnableEvents = True

Exit Sub
errorhandler:
Resume ErrorExit

End Sub