Abrir distintos tipos de archivos mediante VBA

Te anexo la macro, cambia arch, por el nombre de archivo que quieras abrir. Lo que hace la macro es abrir un documento word pero abre la aplicación de microsoft word y abre el archivo.

Private Sub CommandButton23_Click()
    'caja chica
    Dim ruta As String, nbrelibro As String
    'MsgBox "Abre libro Caja Chica"
    'ajustar ubicación y nombre con extensión
    ruta = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Fitness Market\Office\Admin\2015\"
    arch = "nombreword.docx"
    On Error GoTo Valida
    ActiveWorkbook.FollowHyperlink ruta & arch
    Exit Sub
Valida:
    MsgBox Err.Description, vbCritical, "Error"
End Sub

Saludos.Dante Amor

Si es lo que necesitas.

Hola Dante

Me sale como error: No se ha definido la variable

Private Sub CommandButton18_Click()
    'documentos
    Dim ruta As String, nbrelibro As String
    'MsgBox "Abre libro Solicitud Chequera"
    'ajustar ubicación y nombre con extensión
    ruta = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Fitness Market\Office\Admin\"
    arch = "SOLICITUD DE CHEQUERA.docx"
    On Error GoTo Valida
    ActiveWorkbook.FollowHyperlink ruta & arch
    Exit Sub
Valida:
    MsgBox Err.Description, vbCritical, "Error"
End Sub

Gracias...