try

Sub saveasa1()
mypath = "c:\yourfoldernamehere\"
myname = Range("a1").Value
ActiveWorkbook.SaveAs Filename:=mypath & myname & ".xls"
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"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.