Присваивание переменной значения ячейки

[Soviet]

Добрый день.

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

Dim sh As Worksheet, c1 As Range:
Set c1 = Target.EntireRow.Cells(1)
Set sh = ActiveWorkbook.Worksheets("TypeAI1" )

Подскажите как сделать, чтобы имя бланка задавалось не в ручную, а бралось из первой ячейки?

[VictorM]

ИмяБланка = [a1]
ИмяБланка = Cells(1,1)
ИмяБланка = Cells(1)

[Soviet]

Dim sh As Worksheet, c1 As Range, TypeS:
Set TypeS = Cells(1)
Set c1 = Target.EntireRow.Cells(1)
Set sh = ActiveWorkbook.Worksheets(TypeS)

Поправьте если не прав

[slan]

наверное все же

Dim sh As Worksheet, c1 As Range, TypeS:
Set TypeS = Cells(1)
Set c1 = Target.EntireRow.Cells(1)
Set sh = ActiveWorkbook.Worksheets(с1.text)

[Soviet]

Спасибо. сейчас работает.