Macro excel para abrir archivos power point y viso desde hoja excel

Necesito vuestra ayuda

Me estoy pegando con el ordenador para conseguir abrir desde una hoja
excel archivos tanto en power point como de visio.

Mediante la siguiente macro consigo abrir archivos de word :


Sub AbrirDocumentoWord()
With CreateObject("Word.Application")
.Documents.Open "c:uta yombre del documento.doc"
.Visible = True
End With
End Sub

pero para archivos .ppt y .vsd me da errores.

Alguien sabría como ayudarme???