Using sheet name in save as

I am needing to resave each .csv file with the current worksheet name. I recorded a macro (see below), but need the file name to be the current worksheet name. Can anyone help me add code to use current worksheet name?

Sub ReSave_csv_File()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\bbabine.NA04\My Documents\101001\v32691.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
End Sub