Sub Saveas()
Dim Filename
Filename = Sheets("Sheet1").Range("D12").Value
ActiveWorkbook.Saveas Filename:=ActiveWorkbook.Path & "/" & Filename & ".xlsx"
End Sub
Sub Saveas()
Dim Filename
Sdate = " - " & Format(Date, "dd/mm/yyyy")
Filename = Sheets("Sheet1").Range("D12").Value
ActiveWorkbook.Saveas Filename:=ActiveWorkbook.Path & "/" & Filename & Sdate & ".xlsx"
End Sub
Sub Saveas()
Dim Filename
Dim sdate
sdate = " - " & VBA.Format(Date, "dd-mm-yy")
Filename = ActiveWorkbook.Sheets("Sheet1").Range("D12").Text
ActiveWorkbook.Saveas Filename:=ActiveWorkbook.Path & "/" & Filename & sdate & ".xlsx"
End Sub