Obtener Ruta sub Carpeta para Hipervinculo

[salexis89]

Hola un saludo cordial a todos..:

acudo nuevamente a usted ya que no he podido resolver un inconveniente , tengo una carpeta de nombre "Estándar", la cual contiene 5 sub carpetas cada una de estas contiene un archivo, ademas tengo un código el cual me pasa los archivos como hipervinculos a otro excel que genero , mi duda esta en que al momento de pasar los hipervinculos solo se me pasan los archivos contenidos en la carpeta estandar pero si quiero agregar otro archivo de una subcarpeta , se pasa hipervinculo pero sin el nombre de la sub carpeta

por ej : de nombre_carpeta1 me pasa esta dirección"C:\Users\"nombre_usuario"\ListaFinal\Estandar\"nombre_archivo"

si agrego otro archivo de la carpeta "nombre_carpeta2" me aparece lo mismo..

If Cells(nFilaSalida, 4) <> "" Then
          wbNuevoLibro.Worksheets(1).Hyperlinks.Add Anchor:=Cells(nFilaSalida, 4), Address:= _          ThisWorkbook.Path & "\Estandar\" & Cells(nFilaSalida, 4) & ".docx"           End If[/HTML]

ojala me puedan ayudar... Saludos [/font][/color]