День добрый.
Выгружаю данные в Excel, в моем случае на "Мой лист 2".
Торможу, как при открытии перейти на "Мой лист 1", спасибо.

.......
      'открывается существующий документ
    Set XL = CreateObject("Excel.Application")
    Set XT = XL.Workbooks.Open("R:\Моя книга.xlsx")
    Set o = XT.Sheets("Мой лист 2")
    o.Range("a2").CopyFromRecordset rs
    For i = 1 To rs.Fields.Count
        s = rs.Fields(i - 1).Name
        o.Cells(1, i) = s
    Next
    'отображение Excel

' Нужно открыть и видеть "Мой лист 1" ??????????????????????????????

    XL.visible = True
End If
..........

http://www.sql.ru/forum/1256833/kak-pereyti-na-nuzhnyy-list-v-excel