Olá!
Para abrir uma aplicação é utilizado o comando SHELL. Por exemplo, para abrir o Paint o código seria:

Sub paint()

Shell "C:/WINDOWS/SYSTEM32/mspaint.exe"

End Sub

Para aprender mais sobre o comando, sugiro o link do site de um amigo meu:

http://www.ambienteoffice.com.br/officevba/abrir_arquivos_programaticamente/

Abraços!

Celri

Bom Dia!

Tente assim:

Sub AtivarPrograma()
    a = Shell("C:windowssystem32mspaint.exe", vbNormalFocus)
End Sub

Celri

Bom Dia!

Tente assim:

Sub AtivarPrograma()
    a = Shell("C:windowssystem32mspaint.exe", vbNormalFocus)
End Sub

Amigos, os dois códigos funcionaram perfeitamente, obrigado!
Mas tentei adapta-los para abrir o excel, não consegui...Tem como? Assim o código seria o mesmo? (claro readaptando)

Para abrir uma nova janela do Excel use o código:

Sub AddNew()
Dim NewBook As Excel.Workbook
Set NewBook = Workbooks.Add
End Sub

Obrigado pela atenção, todos os códigos funcionaram perfeitamente!