Sub Chiudi() UserForm1.Show End Sub
Private Sub Image1_Click() Foglio2.Select Foglio2.Range("D20").Select Me.Hide End Sub