Modificación de marco en VB.

Buen dia, espero y puedas ayudarme.

Te explico;
He realizado poco a poco una macro en excel para buscar en una ruta x el valor de una celda ("G9" en este ejemplo);

Private Sub CommandButton54_Click()
ChDir "ruta x"
nombre = Range("G9").Value
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists(CurDir() & "\" & nombre) Then
x = MsgBox("Favor de actualizar el Numero de Lote. Desea editarlo?", vbYesNo, "Etiqueta de Resina")
If x = vbNo Then Exit Sub
Shell "WINWORD.exe " & nombre
Else
MsgBox "No existe la etiqueta. Favor de avisar"
End If
End Sub

La macro al encontrar el archivo te pregunta si deseas editar el numero de
lote, se seleccionas "si" te abre el archivo, si seleccionas "no"
finaliza la macro.
Lo que he intentado modificar sin éxito es que cuando selecciones "no" en lugar de finalizar la macro, te imprima directamente el archivo encontrado, sin abrirlo.

LLevo algo de tiempo sin tener éxito.

Gracias.