Hola Hitek, creo que lo de que no se te muestre es del ultimo parámetro, yo me curre una funcioncilla para no tener que escribir tanto ya que siempre la llamaba igual, así lo muestra en primer plano, lo de los errores esta más currao como tu lo tienes.
Código:
Public Sub Abre(ruta As String)
Dim Ventana As Long 'variable necesaria para la API
Dim sError As String 'cadena de error
'llama a la API que abre cualquier documento que tenga un programa asociado
' el valor 5 del último parámetro equivale a la constante SW_SHOW que hace que se muestre el documento
If ShellExecute(Ventana, "open", ruta, vbNullString, vbNullString, 5) <= 32 Then
sError = MsgBox("No puede abrir o no se encuentra el documento" & vbCrLf & ruta, vbExclamation + vbOKOnly, "Error")
End If
End Sub
Saludos!