save worksheet as per the active cell

  • Thread starter Thread starter Ranjit kurian
  • Start date Start date
R

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

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