Aquí no hay aguja que buscar, tan solo el path:
Código:
Sub directorio()
respuesta = MsgBox("Este fichero se guarda en " & ActiveWorkbook.Path)
End Sub
Para que funcione, el fichero debe estar guardado en algún sitio. Haciéndolo "al vuelo" (sobre un libro no guardado previamente), no te saldrá nada.
Salu2