This code saves xls sheets as a csv files. BUT I do not know:
1. how to save them as xls.
2. how to save in the parent current folder

For i = 1 To nr
Nume = Cells(i + 2, 1)
Worksheets(Nume).Activate
Fisier = "C:\Back-up\Developers\Mario\" & Nume & ".csv"
ActiveSheet.SaveAs Fisier, xlCSVWindows
Worksheets("SA 200").Activate
Next i
End Sub

Please help me


--
drumerboy
------------------------------------------------------------------------
drumerboy's Profile: http://www.excelforum.com/member.php...o&userid=30468
View this thread: http://www.excelforum.com/showthread...hreadid=502431