Este fórum está sendo desativado

[MarceloAdriano]

Olá, Minhas Considerações...
Gostaria de resolver uma situação:
Tenho um planilha (teste), com várias plans (planilha1; planilha 2; planilha 3; planilha4;planilha5) gostaria que ao abrir essa planilha, sempre abrisse na planilha1 que irá conter hiperlinks que irão direcionar para as demais planilhas.
Nota Importante: esta planilha1 “Estapasta_de_Trabalho” contém um Sub Workbook_Open que é um mensagem de boas vindas ao usuário, e esta, por sua vez, entra em conflito com outro código de vba que retorne a plan específica ao abrir.
Gostaria que fizesse no exemplo (em anexo) e me retornasse com a solução se possivel!
Agradeço desde já,
Grato!

[alexandrevba]

Boa tarde!!

Eu não sei se entendi.

Você postou 2 arquivos, mas em um dos arquivos tem apenas um código, o mesmo que vai abaixo, tente a ultima linha.

Código: Selecionar todos

Private Sub Workbook_Open()
Dim dHora As Integer
 dHora = Hour(Now)
       
    Select Case dHora
        Case Is >= 18
            sSaudacao = "Boa Noite"
        Case Is >= 12
            sSaudacao = "Boa Tarde"
        Case Is >= 0
            sSaudacao = "Bom Dia"
    End Select
    
    MsgBox sSaudacao & "! Verão Brasileiro!" _
    & Chr(13) & "Seja Bem Vindo!" _
   & Chr(13) & "À Planilha Administrativa - Marcelo Adriano!", vbInformation, "Entusiasta Excel_Versão#002"
   ThisWorkbook.Worksheets("Planilha1").Select 'use esta linha
End Sub

Att

[MarceloAdriano]

Olá Alexandre VBA
Obrigado, era exatamente o que queria, você acertou em cheio!

Marcelo Adriano
Contagem/MG