Кто подскажет, возможно-ли как нибудь прописать в макросе такой блок
и если да, то как?
Есть список наименований в экселе и существуют листы с именами из этого списка наименований.
Если программа не обнаружит листа с именем из списка, то нужно сообщение. А так ошибку лепит.
Если есть лист с именем в списке то программа работает.

Function Perenos() '
Dim Stroka, Stolbec, Naim_BD
Stroka = 6
Stolbec = 2
Naim_BD = Worksheets("Прайс").Cells([Stroka], [Stolbec])
Do While Worksheets("Прайс").Cells([Stroka], [Stolbec]) <> ""
'Ищет конец списка а в процессе идёт проверка
If Sheets(Naim_BD).Name = Naim_BD Then 'Проблемное место!!!!
MsgBox "ok!"
Else
MsgBox "Нет такого листа!"
End If
Stroka = Stroka + 1
Naim_BD = Worksheets("Прайс").Cells([Stroka], [Stolbec])
Loop
Msgbox "Конец"
End Function

Код

Function Perenos() Dim Stroka, Stolbec As Integer Dim Naim_BD As String Stroka = 6 Stolbec = 2 Naim_BD = Worksheets("Прайс").Cells(Stroka, Stolbec) Do While Worksheets("Прайс").Cells(Stroka, Stolbec) <> "" If Sheets(Naim_BD).Name = Naim_BD Then  On Error GoTo errObr:  MsgBox "ok!" End If Stroka = Stroka + 1 Naim_BD = Worksheets("Прайс").Cells(Stroka, Stolbec) Loop MsgBox "Конец" errObr: MsgBox "Нет такого листа!" End Function

Только пару замечаний
1. Это нифига не Function , а таки Sub
2. Не элегантный код - можно вполней обойтись и без If

Спасибо!
Получилось сразу.
Это всё таки Function, просто показал кусок.
Лабаю програмку а в качестве БД у меня листы. И если в список добавится новый элемент, то будет создан новый лист для него с таким же именем.
А код неэлегантный, потому что самоучка.
Спасибо Guest!!!

Ещё вопросик!
Эта строка перемещает лист "Naim_BD" третьим по расположению.

Sheets(Naim_BD).Move After:=Sheets(3)

А есть-ли команда отпраляющая лист в конец?
Добавлено @ 11:01
Забыл добавить!
Независимо от количества листов! Так как в конец нужно отправлять вновь созданные.