как вернуться на текущий лист

[everest88]

Как правильно написать макрос чтоб в конце вернуться на текущий лист, если условие не выполнено
Пробовал так

Private Sub Worksheet_Deactivate()
Dim h As String
h = ActiveSheet.Name
If ------текст макроса---------- Then
MsgBox "Вернитесь на исходный лист-условие не выполнено !": Sheets("h").Activate
End If
End Sub

Ругается на Sheets("h").Activate Что не так?

[IgorGO]

кавычки не так Sheets(h).Activate
а вообще зачем возвращаться на текущий лист? если программа и так постоянно на текущем листе))) он тем и отличается от остальных, что он уже "текущий"

[everest88]

Да исх листы могут быть разными - если условие не выполняется то остаемся на текущем
то есть пытаемся перейти на другой лист - условие на текущем не выполнено -табличка выск - и обратно

А обратно сейчас не идет ..... (h) поправил

[IgorGO]

и в таком варианте: Sheets(h).Activate???

[VictorM]

А обратно сейчас не идет ..... (h) поправил

все правильно, при переходе на другой лист Worksheet_Deactivate
h = ActiveSheet.Name уже нового листа, того на который перешли
наверное нужно задать имя исходного листа строго

[kuklp]

everest88, отписываться надо в темах, к-рые создаете. Вам же The_Prist подсказал на Планете, как надо.

[The_Prist]

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

everest88, отписываться надо в темах, к-рые создаете. Вам же The_Prist подсказал на Планете, как надо.

И то верно! Вот даже ссылочка :-)

[everest88]

сейчас только попробовал - совет The_Prist помог РАБОТАЕТ !! Большое спасибо The_Prist и всем кто откликнулся
вроде элементарный вопрос - кажется что по логике все правильно оказывается нет ...
Единственное въехать никак не мог - The_Prist написал "....Посмотрите какое значение у переменной h. Это имя листа, который активен уже. Т.е. не тот, в котором код." Те получается что по команде Private Sub Worksheet_Deactivate() мы уже на другом листе - я то считал что в начале кода мы еще на текущем ... век живи век учись ...