New CSV File

[Guest]

Hello,

Looking for code to.

Take Tab Name "Kitting Output" and turn it into a .CSV file named HLP with
todays date on the end. Example HPL112806.
And then save it to the desktop.

Thanks in Advance.
Aaron

 

[Guest]

Aaron

Try this:

Sub csv()
On Error GoTo error_line
Sheets("Kitting Output").Copy

ActiveSheet.SaveAs _
Filename:="HLP" & Format(Now, "ddmmyy") & _
".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Exit Sub
error_line:
MsgBox "Error saving file, check", vbOKOnly
End Sub