Save file using cell reference

[TyeReece]

I need to be able to automatically save several files after I make changes to a file name that is based on a cell reference, constant text (e.g., "ProgramFile") and date (month/year format). I want to put this on the end of the macro I have that creates the files so I don't have to go thru the process of saving each file maunally. Is there a quick string of code that does this?

 

[kpark91]

Assuming your filenames are in column A, you can use the following code:

    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row    
    Set NewBook = Workbooks.Add
    With NewBook
        .Title = Range("A" & i).Value
        .SaveAs Filename:= Range("A" & i).Value & ".xls"
    End With
    Next i

This code will create the files with the text inside column A until the first occurrence of a blank column A cell in the same directory.

 

[Frozo]

insert then automatically save...?

Hi guys
I need a Macro that inserts a Value "n" from a list in "sheet2" to a cell in "sheet1" and then saves a filename as this value "n" then proceeds to a next value in the column list and stops as the list ends
thanks in advance..!