For Excel 97-2003 try something like this
It will replace the file each time you run the code

Sub test()
If ActiveCell.Value < "" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs "C:\" & ActiveCell.Value & ".xls"
Application.DisplayAlerts = True
End If
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ranjit kurian" wrote in message ...
Hi

i need a macro to save my excel file as per the activecell name

example: if my active cell is "A1" and in A1 i have typed a word called as
John, so the same workbook need to be saved in John's name to my C: drive.