Развернуть все листы и перейти на конкретный лист

Question

Привет! Мне нужно выполнить макрос, чтобы отобразить все листы, но когда я запускаю его, это приводит меня к нижней части случайного листа.Я хотел бы перейти на конкретный лист и перенести меня наверх листа.

код

Sub Unhide_All_Tabs()

For Each ws In Sheets: ws.Visible = True: Next

Answer 1

Я согласен с @Mathieu Guindon и @ braX.

Я бы тоже так поступил:

Option Explicit

Sub Unhide_All_Tabs()
    Dim WB As Workbook
    Dim WSht As Worksheet

    Set WB = ActiveWorkbook

    For Each WSht In WB.Worksheets
        WSht.Visible = xlSheetVisible
    Next
    Set WSht = WB.Worksheets("Dashboard")

    WSht.Activate
    WSht.Cells(1, 1).Select
End Sub

Answer 2

Sub Unhide_All_Tabs()

For Each ws In Sheets: ws.Visible = True: Next
ThisWorkbook.Sheets("Dashboard").Visible = True
ThisWorkbook.Sheets("Dashboard").Select
ThisWorkbook.Sheets("Dashboard").Range("A1").Select