Excel macro for saving an SS needed

[PPykett]

Hi

Can anybody help me please

I can't work out how to create the following macro:

I need to be able to save the active workbook using the contents of a cell within the sheet as the name. The sheet changes over time, and I need to be able to save periodically as a new save not an update of a previous one

Any help would be very much appreciated

PPykett

 

[Guest_imported]

If I am understanding you correctly, you wish to periodically save ie using a macro, in a file named in a specified cell.

I like to use named ranges so...
1. Name the cell in which you have the file name (I used "WorkbookName&quot

2. write the fillowing procedure that enables you to select the proper folder in which you will save you workbook each time.

Sub SaveIt()
    Dim sFileSaveName As String, sWorkbookName As String
    Const EXCEL_FILE_FILTER = "Excel Files (*.xls), *.xls"
    
    sWorkbookName = Range("WorkbookName").Value
    
    sFileSaveName = Application.GetSaveAsFilename( _
        initialfilename:=sWorkbookName, _
        fileFilter:=EXCEL_FILE_FILTER)
        
    If sFileSaveName <> False Then
        ActiveWorkbook.SaveAs sFileSaveName
    End If
End Sub

skip_metzger@voughtaircraft.com