Private Sub Creabudgetcdc_Click()			
			
			
Dim Question As Integer			
Dim mypath As String			
Dim nFile As String			
			
Question = MsgBox("Vuoi salvare il file?", vbYesNo + vbCritical, "Attenzione")			
			
    Select Case Question			
    			
    Case vbNo			
        Exit Sub			
    			
    Case vbYes			
    			

	mypath = "M:Ufficio Finanza e Controllo1 - BudgetBdg 2017\_Modello "			
        nFile = [B1] & "-" & [C1]			
			
        ActiveWorkbook.SaveAs Filename:=mypath & nFile & ".xlsm", FileFormat:= _			
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False			
    			
    ' Crea una copia del foglio master e lo rinomina con il nome del cdc			
            			
        Sheets("Master").Select			
        Sheets("Master").Copy After:=Sheets(23)			
        ActiveSheet.Name = ActiveSheet.Range("B1")			
            			
    ' Trova e cancella la parola "Totale complessivo"			
           			
        With ActiveSheet.Cells			
        .Replace What:="Totale complessivo", Replacement:=""			
        End With			
                      			
    ' Copia a valore il conto economico  2016			
        			
        Range("E5:E13").Select			
        Selection.Copy			
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False			
        			
        Range("C1").Select			
        Selection.Copy			
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False			
     			
     ' Copia a valore l'area con i dettagli del Budget  e chiude le colonne			
        			
        Columns("EL:IC").Select			
        Selection.Copy			
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False			
    			
        Columns("BX:IC").Select			
        Application.CutCopyMode = False			
        Selection.Columns.Group			
        ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1			
       			
    ' Protegge il foglio			
   			
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True			
      			
    			
       			
    MsgBox ("File salvato")			
        			
    End Select			
    			
End Sub