paramisolo respondió:
Vale te entendí (eternamente es mucho tiempo) pones esto Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address="$A$5" Then 'Cambia tu celda If Target.Value="25" Then NombreArchivo=Range("la celda de donde tomar el nombre").Value ChDir...