Excel VBA - saving prob-filename=cell reference how to?

[madmatt]

how can i save a workbook with a file name which is in my work cell re
a1?

ie i want to save the workbook and i want the filename to be what is i
cel a1

whats the code to do it in a macro?
many thanks
mat

 

[Frank Kabel]

Hi
Try

sub save_with_cell()
Dim fname
fname = worksheets("sheet1").range("A1").value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
end sub

You should add some error checking to this (does the files already
exist, etc.)

 

[madmatt]

Ok I'll Try It, Many Thank