Обращение к листу по имени через переменную

[tae1980]

Нужно реализовать обращение к листу по имени через переменную. Нечто подобное но работающее.

sub test1
  a="Лист1"
  a.cells(1,1)="1111"
end sub

Как подобное сделать?

[The_Prist]

Либо

sub test1
  Dim a as worksheet:Set a=Sheets("Лист1")
  a.cells(1,1)="1111"
end sub

Либо

sub test1
  Dim a as string:a="Лист1"
  Sheets(a).cells(1,1)="1111"
end sub

P.S. Не забывайте объявлять переменные.

[tae1980]

Сообщение от The_Prist

Либо

sub test1
  Dim a as worksheet:Set a=Sheets("Лист1")
  a.cells(1,1)="1111"
end sub

Либо

sub test1
  Dim a as string:a="Лист1"
  Sheets(a).cells(1,1)="1111"
end sub

P.S. Не забывайте объявлять переменные.

Спасибо! Только что до меня самого дошло... Туплю...