MACRO save active sheet wth name from selected cell and without macros and buttons

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?

Run-time Error 1004..see attached image:

excelerror.jpg

cell A3 is full of text that it has to be a name of saved file.

Ok

In this workbook there is a sheet specific macro on sheet: Main2

leaving that sheet will save Main2 to a folder called pics on the desktop using the name in cell a1.

I havn't time at the momenr to check if that folder exists and to create it for you. [ Will do that in a couple of hours when I get back. ]

Right click on main2 at the bottom of excel to view the code.

Enjoy.