Sub Avvia_Form() UserForm1.TextBox2.Value = Format(Sheets("HomePage").[I9], "dddd, dd/mm/yyyy") UserForm1.Show End Sub