Não entendi. Detalha melhor por favor?
O que exatamente vc pretende?

Não entendi. Detalha melhor por favor?
O que exatamente vc pretende?

Ola Fernando.

Criei uma macro, onde abre vários programas, e o excel fica "escondido" em sobreposto por essas janelas (programas), gostaria que ele ao terminar de abrir todos esses programas, voltasse para o excel, e exibi-se a mensagem, ok, processo finalizado (a mensagem ja fiz, porem o excel fica escondido, sem voltar para a planilha)

Cola ae o código que abre esses programas....

Fernando, segue abaixo um exemplo:

Sub progra_1()
    Dim objIE6 As New InternetExplorer 'Referencie "Microsoft Internet Controls"
    objIE6.Visible = True
    Dc_URL6 = "https://www.selic.rtm/portal/pub/index.do"
    
    'Navega até o link informado
    objIE6.Navigate2 Dc_URL6
    
    sng = Timer
    Do While sng + 2 > Timer
     Loop

'programa 2
Shell ("\server001controlbincontrol.exe")
    dc_usuario = [B11]
    dc_senha = [B12]
    
    sng = Timer
        Do While sng + 10 > Timer
    Loop
    SendKeys dc_usuario, True
    SendKeys "{TAB}", True
    SendKeys dc_senha, True
    SendKeys "{ENTER}", True
    SendKeys "{TAB}", True

MsgBox "Aplicações Abertas!"

End Sub

Unload Me
Plan1.Activate
Application.Visible = True

fcarlosc, perfeito !!!

funcionou certinho, muito obrigado.