Excel VBA - converting a .csv to xls (or xlsx)

[ZugZug]

I'm writing a macro that, after performing some data cleaning, saves my file in a specified directory. The original file is .csv, and I'd really like it to come out in either a xls or xlsx format. Here's my code to save the file:

   Dim newFile As String, fName As String
   fName = Range("A2").Value
   newFile = fName & " " & Format$(Date, "mmddyyyy")
   ChDir _
   "C:\Documents and Settings\username\Desktop"
   ActiveWorkbook.SaveAs Filename:=newFile

Right now it's saving it as a csv. Is there anything I can add or modify which will save this in the format I want? TIA!

[Abused Student]

The next option after Filename is FileType. I think if you added the .xls or .xlsx in the file name it would be correct or if you changed the filetype.

[MyKenk]

Originally Posted by ZugZug

I'm writing a macro that, after performing some data cleaning, saves my file in a specified directory. The original file is .csv, and I'd really like it to come out in either a xls or xlsx format. Here's my code to save the file:

   Dim newFile As String, fName As String
   fName = Range("A2").Value
   newFile = fName & " " & Format$(Date, "mmddyyyy")
   ChDir _
   "C:\Documents and Settings\username\Desktop"
   ActiveWorkbook.SaveAs Filename:=newFile

Right now it's saving it as a csv. Is there anything I can add or modify which will save this in the format I want? TIA!

Try:

ActiveWorkbook.SaveAs Filename:=newFile, FileFormat:=xlExcel12

[ZugZug]

Great suggestions, it worked; thanks both of you!