Проверка данных на двух разных рабочих листах с использованием vba

Question

У меня есть лист1 с данными,

Каждое поле должно ссылаться на другие поля листа (Лист2) для проверки

в Листе 2, Список проверки данных,

Проверка данных

Sub validation()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet

'Set ws1 = Sheets("Sheet1")
Set ws1 = ActiveWorkbook.Worksheets(1)
Set ws2 = Sheets("Data Validation")
'Set ws3 = Sheets("V011 Record")


Dim wkst As Excel.Worksheet

ThisWorkbook.Names.Add Name:="listdata", RefersTo:= _
                       "=Data Validation!$A$1:$A$4"

For Each wkst In ThisWorkbook.Sheets

    If wkst.Name <> "Data Validation" Then

        With wkst.Range("A1").Validation

            .Delete


            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, 
Operator:= _
                 xlBetween, Formula1:="=listdata"

        End With
    End If
Next

End Sub

ПОЖАЛУЙСТА, ОБРАТИТЕ ВНИМАНИЕ: Имя листа1: Динамическое имя Лист2 Имя: «Проверка данных»

Может ли кто-нибудь помочь мне, пожалуйста,