Private Sub CommandButton1_Click() CalcoloGiorni.Hide [G3].Value = CDate(TextBox1) [H3].Value = CDate(TextBox2) Range("G2").Select End Sub
Private Sub TextBox1_AfterUpdate() TextBox1 = Format(TextBox1, "dd/mm/yyyy") End Sub