Save To Csv Running A Macro

how do i save this macro to a csv file

Sheets("sheet1").Select
Range("E4").Select
Name = ActiveCell.Value
If ActiveCell = "" Then
GoTo 2

Else
ChDir "C:\Documents and Settings\skirk\My Documents\macros"
ActiveWorkbook.SaveAs Filename:=Name

thanks
steve

Maybe...

dim myFileName as string
with worksheets("Sheet1")
.select
myfilename = "C:\Documents and Settings\skirk\My Documents\macros\" & _
.range("E4").value
.parent.saveas filename:=myfilename, fileformat:=xlcsv
end with

But this saves the workbook as a .csv file--it doesn't save the macro in that
..csv file. CSV files are plain text--they don't save formatting, formulas,
macros, etc.


stevekirk wrote:
>
> how do i save this macro to a csv file
>
> Sheets("sheet1").Select
> Range("E4").Select
> Name = ActiveCell.Value
> If ActiveCell = "" Then
> GoTo 2
>
> Else
> ChDir "C:\Documents and Settings\skirk\My Documents\macros"
> ActiveWorkbook.SaveAs Filename:=Name
>
> thanks
> steve
>
> --
> stevekirk
> ------------------------------------------------------------------------
> stevekirk's Profile: http://www.excelforum.com/member.php...o&userid=37328
> View this thread: http://www.excelforum.com/showthread...hreadid=570639

--

Dave Peterson

thanks macro worked great

thank you