Textfeld mit wert aus zellen befüllen

Private Sub UserForm_Activate()
Textfeld75.Text = Sheets("bmd").Range("A1")
End Sub

geht leider nicht.

bin mit rechetr maustaste aufs textfeld gegangen -> Makro zuweisen und hab den code hineingeschrieben. da gibt er mir aber leider eine fehlermeldung retour :(

danke schon im voraus.