Bom dia,

Uma opção seria colocar a seguinte instrução no evento Open da pasta de trabalho:

Private Sub Workbook_Open()
    Sheets("Sheet1").Activate
End Sub

No editor do VB, do lado esquerdo, dê um duplo clique em "EstaPasta_de_trabalho" e cole o código.
Outra opção seria inserir um módulo e colocar o seguinte procedimento:

Sub auto_open()
    Sheets("Sheet1").Activate
End Sub

Abraço

O problema é que não sei se essa sheet estará hide ou não.
Eu no meu ficheiro tenho botões que vão saltando de sheets. Por exemplo, tenho um botão na sheet1 que salta para a sheet 2, fazendo unhide da sheet2 e hide da sheet1.

O que eu queria era, por exemplo, caso feche o documento na sheet2, quando o voltar a abrir queria que só aparecesse a sheet1 aberta e todas as outras hide.

Utilize no Evento BeforeClose a seguinte rotina:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

        Dim ws As Worksheet
       
            Application.ScreenUpdating = False
            
            Worksheets("Sheet1").Visible = xlSheetVisible
            
            On Error Resume Next
          
            For Each ws In Worksheets
               
                If ws.Name <> "Sheet1" Then
                   
                        ws.Visible = xlSheetHidden

                End If
            Next ws
       
        Application.ScreenUpdating = True
       
End Sub

Sempre que fechar o arquivo, independente se a Sheet1 estará visivel ou não, será ocultada todas e exeibida somente a Sheet1, assim quando abrir ela será sempre a primeira.

[]s

Utilize no Evento BeforeClose a seguinte rotina:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

        Dim ws As Worksheet
       
            Application.ScreenUpdating = False
            
            Worksheets("Sheet1").Visible = xlSheetVisible
            
            On Error Resume Next
          
            For Each ws In Worksheets
               
                If ws.Name <> "Sheet1" Then
                   
                        ws.Visible = xlSheetHidden

                End If
            Next ws
       
        Application.ScreenUpdating = True
       
End Sub

Sempre que fechar o arquivo, independente se a Sheet1 estará visivel ou não, será ocultada todas e exeibida somente a Sheet1, assim quando abrir ela será sempre a primeira.

[]s

devo colar esse código no evento BeforeClose? Como faço isso?

já funcionou! Muito obrigado! Valeu!!!