Hola:
Debés armar una cadena previamente:
cadena= "c:/" & activesheet.range("A1").value & ".txt"
Workbooks.Open.....Filename:=
cadena
Si la celda contiene el nombre + la extensión deberás quitar esa parte de la cadena.
Saludos
Elsa
Más soluciones en mi sitio:
http://es.geocities.com/lacibelesdepunilla/macros
