Sub SaveSheet()
worksheets("Import2004").Copy
ActiveWorkbook.SaveAs Filename = "M:\2004\Import\" & _
Activesheet.Range("A2").Value & Range("A5").Value & _
".cvs", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
End Sub

--
Regards,
Tom Ogilvy

"hailnorm " wrote in message
...
I have various templates varing in the number of worksheets. There is
one worksheet called "IMPORT2004" that's common in all the files.

I need a macro that saves just this specific worksheet as a CSV file
into a share drive called "M:/2004/Import". And that CSV file needs to
have a custom name. The name of the template is always in cell A2 & a
reference number is always in cell A5 of the "IMPORT2004" tab. Each
month, the reference number changes with the data.

So if the template was called "Template One" & the ref# was "12345",
the CSV file should be named "Template One 12345". The name of the file
found in A2 is also what the file is saved as.

If this "custom naming" can't be done this way, is there a way to
generate some sort of unique identifier that distinguishes one template
from an other & also one version from an other?

Thanks in advance


---
Message posted from http://www.ExcelForum.com/