Save As File Name from Cell?

J

Jeff Granger

Is there any way of automatically generating a (Save As) file name from the
contents of a cell?

Jeff
 
J

Jon von der Heyden

Hi,

Yes you can, as example, the VBA would be:

Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:\" &
Sheets("Sheet1").Range("A1").Value & ".xls"
End Sub
 
J

Jeff Granger

Thanks Jon

Jon von der Heyden said:
Hi,

Yes you can, as example, the VBA would be:

Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:\" &
Sheets("Sheet1").Range("A1").Value & ".xls"
End Sub
Click to expand...
 
Top