Переход по видимым листам

[Rita2018]

Добрый день!
Скажите пожалуйста можно ли после выбора(Randomize) пяти листов, активным делать лист, который стоит после Лист1 и осуществлять переход по видимым листам кнопкой(следующий)???

[Elixi]

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

можно ли

наверно вы хотели что-то такое:

Sub Next_Sheet_Activate()
    Dim i, A As Boolean
    
    i = ActiveSheet.Index
    Do
        If i = Sheets.Count Then i = 0
        i = i + 1
        If Sheets(i).Visible = True Then
            Sheets(i).Activate
            A = True
        End If
    Loop Until A
End Sub

[Rita2018]

Elixi, СПАСИБО БОЛЬШОЕ!!!То что нужно! Вот ещё бы мне, чтоб активным становился(открывался)первый видимый лист после Лист1(после нажатия кнопки Начало)

[Elixi]

'если в выше указанoй прoцедуре заменить стрoку
    i = ActiveSheet.Index
'наследующей стрoкoй
    i = Sheets("Лист1").index
'прoцедура будет искать первый видимий лист пoсле листа Лист1

[Rita2018]

Elixi, ЕЩЁ РАЗ СПАСИБО БОЛЬШОЕ!!!