macro para grabar una hoja de un libro como *.csv y tomando como nombre el contenido de una celda

Esto lo hice, practicamente solo con la grabadora de macros:

Sub Macro1()
Dim nombre As String
nombre = [e1]
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\avalencia\Escritorio\" & nombre &
".csv", FileFormat:= _
xlCSV, CreateBackup:=False
Application.WindowState = xlMinimized
End Sub


Ah, no olvides de cambiar la ruta a la tuya, y la celda a la que tu
desees. Eso si, te dar error si en la celda hay caracteres no
permitidos en el nombre de un archivo. Se puede crear una UDF para
evitar esto, pero si no me equivoco en este mismo foro hay algunas
echas.

Abraham