Não entendi muito bem o seu código. Se é para deixar visível somente a planilha (Plan) "Início" e ocultar todas as outras planilhas que existirem, o código abaixo faz isso. Não é preciso nem selecionar ou ativar a planilha "Início", visto que somente ela estando visível, automaticamente será a planilha selecionada. Private Sub Workbook_Open() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name <> "Inicio" Then wks.Visible = xlSheetHidden 'Ou xlVery Hidden End If Next wks UserForm1.Show End Sub