.......
      'открывается существующий документ
    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
..........

XT.Sheets("Лист1").Select