имя листа как искомое значение для Vlookup

Question

Для отправки макроса электронной почты я хотел бы использовать vlookup, где искомое значение - это имя вкладки. Используя имя вкладки, я получил бы адрес электронной почты от одного из рабочих листов. К сожалению, мой код не работает:

Sub znajdzadres()
Dim ws As Worksheet
Dim eadr As Variant
Dim nameW As Variant
nameW = ws.Name

eadr = "Application.WorksheetFunction.VLookup([nameW],DOSTAWCY!R2C1:R83C3,3,0)"




End Sub

Answer 1

Не заключайте в кавычки формулу при применении функции рабочего листа и применяйте строку var как есть с соответствующей ссылкой на рабочий лист / диапазон.

Dim eadr As Variant
Dim nameW As Variant

nameW = ActiveSheet.Name

eadr = Application.WorksheetFunction.VLookup(nameW, worksheets("DOSTAWCY").range("A2:C83"), 3, 0)

debug.print eadr