[VBA] imputare dati in celle excel con visualbasic

[montagnani6]

ciao questo è quello che ho scritto,dovrebbe mettermi il valore che scrivo nella textbox nella riga 3 quando premo il command buttom ,ma non succede niente

Private Sub CommandButton1_Click()
ActiveSheet.Cells(3, 1) = TextBox1.Text
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub