Option Explicit
Option Base 1

' 2018-09-18 // Roman "Rioran" Voronov // Выбор первого видимого листа в книге
' Предполагается использование с помощью кнопок быстрого доступа
Sub select_first_sheet()
    Dim i& ' Объявляем числовой счётчик
    For i = 1 To ActiveWorkbook.Worksheets.Count ' Прогоняем счётчик от 1-го до номера последнего листа
        If ActiveWorkbook.Worksheets(i).Visible Then ' Если встречаем видимый лист... ("невидимок" пропускаем)
            ActiveWorkbook.Worksheets(i).Activate ' ... то к данному листу переходим
            Exit Sub ' и завершаем выполнение программы
        End If
    Next i
End Sub

' 2018-09-18 // Roman "Rioran" Voronov // Выбор последнего видимого листа в книге
' Предполагается использование с помощью кнопок быстрого доступа
Sub select_last_sheet()
    Dim i& ' Объявляем числовой счётчик
    For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ' Прогоняем счётчик от последнего листа до 1-го
        If ActiveWorkbook.Worksheets(i).Visible Then ' Если встречаем видимый лист... ("невидимок" пропускаем)
            ActiveWorkbook.Worksheets(i).Activate ' ... то к данному листу переходим
            Exit Sub ' и завершаем выполнение программы
        End If
    Next i
End Sub