Good day,

I need a macro that saves active sheet in selected folder with name from cell A# without macros and button.

Bellow code should do that:


Sub SaveScreeningWithNewName()
Dim NewFN As Variant
' Copy Screening to a new workbook
Sheets(Array("SUM")).Copy
ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete
NewFN = "C:\Users\" & Range("A3").Text & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close


End Sub
But is not working...i don't know what am I missing..can somebody help me?