save worksheet as per the active cell

[Ranjit kurian]

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.

 

[Ron de Bruin]

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

 

[Don Guillett]

try

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