Back

Sub FileSave()
' Written by Barrie Davidson
Dim saveName As String

    saveName = Format$(Range("A1").Value, "dd-mm-yy")
    ActiveWorkbook.Sheets.Select
    Sheets.Copy
    ActiveSheet.Activate
    ActiveWorkbook.SaveAs (saveName)
    ActiveWorkbook.Close
    ActiveSheet.Select
    
End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added October, 2001