In a userform I have two textboxes. What I write in these two textboxes I want to put in two different cells. I have this code here. But there is something wrong. Please help me.
Private Sub CommandButton1_Click() Dim aarstal As Long Dim dato As String aarstal = TextBox1 dato = TextBox2 End Sub Private Sub CommandButton2_Click() Dim aarstal As Long Dim dato As String With Sheet1 .Cells(1, 1) = aarstal .Cells(2, 1) = dato End With Application.ScreenUpdating = False Unload Me End Sub