Since you posted in .misc, you're requirement of a macro solution for multiple
files wasn't immediately evident--well, not to me or anirudh.

But you could try this one:

Option Explicit
Sub testme()

Dim myFileNames As Variant
Dim fCtr As Long
Dim wks As Worksheet
Dim newFileName As String

myFileNames = Application.GetOpenFilename _
(filefilter:="Comma Separated Values, *.csv", MultiSelect:=True)

If IsArray(myFileNames) = False Then
'user hit cancel
Exit Sub
End If

For fCtr = LBound(myFileNames) To UBound(myFileNames)
Set wks = Workbooks.Open(Filename:=myFileNames(fCtr)).Worksh eets(1)
wks.Name = "Sheet1"
newFileName _
= Left(myFileNames(fCtr), Len(myFileNames(fCtr)) - 4) & ".xls"
With wks.Parent
Application.DisplayAlerts = False
.SaveAs Filename:=newFileName, FileFormat:=xlWorkbookNormal
Application.DisplayAlerts = True
.Close savechanges:=False
End With
Next fCtr

End Sub

Just click & ctrl-click on as many as you want to convert (or click the top one
and shift-click the bottom one to select all in between).

nc wrote:

Anirudh

I am not being funny, I meant macro???!!!. Because I have about 70 odd files.

"Anirudh" wrote:

Hi nc,

just open the file and use save as 'file name' and in save type 'microsoft
excel workbook'

anirudh


"nc" wrote:

How can I use macro rename the sheet in the .csv files in a folder to
"Sheet1" and convert them to .xls files?

--

Dave Peterson