
SUB SALVA()
NOMEPERCORSO = Range("A1").Value & Range("A2").Value
Sheets("Foglio1").Select
Sheets("Foglio1").Move
ActiveWorkbook.SaveAs Filename:=NOMEPERCORSO, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
END SUB |
