Помогите сделать макрос в Сall
 

Всем привет ! Подскажите пожалуйста как в Call сделать макрос который будет запускаться при активизации ячейки из определенного столбца. Смысл задачи таков. Выбираем ячейку из столбца Х и в столбце Y ячейку по этой же строке заполняем определенным списком выбора.Срочно надо документ экселя перевести. Если кто не понял могу макрос экселя привести в пример. Если кто знает помогите !!! Rem Attribute VBA_ModuleType=VBADocumentModuleOption VBASupport 1Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then j = Target.Value j = Left(j, 1) Select Case j Case 1ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R2C2:R20C2"Case 2ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R21C2:R23C2"Case 3ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R24C2:R25C2"Case 4ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R26C2:R31C2"End Select With Target.Next.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=ПРЕДМЕТ1" End With End IfEnd Sub