
Sheets("scheda").Select
Sheets("scheda").Move
Sheets("scheda").Select
Sheets("scheda").Name = "scheda creata" |
Sheets("scheda").Select
Sheets("scheda").Copy
ThisWorkbook.Activate
Application.DisplayAlerts = False
Sheets("scheda").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Workbooks(Workbooks.Count).Activate
Sheets("scheda").Name = "scheda creata" |
