save worksheet as per the active cell
 

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.

save worksheet as per the active cell
 

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.

save worksheet as per the active cell
 

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.