Saving an Excel Workbook/File as a Cell Text

Complete Excel Excel Training Course. Instant Buy/Download, 30 Day Money Back Guarantee

Excel VBA How to: Saving a Workbook as a Name in a Cell

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Saving an Excel Workbook/File as a Cell Text

It's quite common for Excel users to want to save their Excel file as a name that resides in Worksheet cell. The code below here shows you how this can be done. Where A1 is on a Worksheet with a Code Name of Sheet1 and it houses the name to use.

Sub SaveAsCell()

Dim strName As String



On Error GoTo InvalidName

    strName = Sheet1.Range("A1")

    ActiveWorkbook.SaveAs strName

    

Exit Sub

InvalidName: MsgBox "The text: " & strName & _

        " is not a valid file name.", vbCritical, "Ozgrid.com"

End Sub

To add the code, open the Visual Basic Editor via Tools>Macro>Visual Basic Editor (Alt+F11) then go to Insert>Module and paste in the code above. To run the macro, go to Tools>Macro>Macros (Alt+F8) select the macro name and click "Run".

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft