Private Sub UserForm_Initialize() With TextBox1 .Value = "Januar" .SelStart = 0 .SelLength = .TextLength End With End Sub