Rename file based on cell

[waterdog15]

Is it possible to create a macro to rename and save a file based on a cells content? For example, if the name in cell C2 is "John Doe" and D3 has the word "April", I want to rename the current file to John Doe and the current worksheet to April. Can you do this?

Thanks in advance,
Paul

 

[nicolewh]

Here are some examples

Sub SaveAndRename()
 Sheets(1).Name = Range("D3").Value
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\........\Testme\" & Range("C2").Value & ".xlsm", , FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   
    
End Sub

 

[waterdog15]

Thank-you. Is this the same for both 2003 and 2007? Also can you have it open the "Save As" dialog box and prepopulate the box with the name in the cell?

Thanks again,
Paul

 

[nicolewh]

Not sure if you can. Sorry.

Goodluck!

Nicole