Textbox inhalt in Zelle

Sub TextBoxInZelle()
Dim txtBox572 As TextBox
Dim Bereich As Range
Set txtBox572 = ActiveSheet.DrawingObjects(1)
Set Bereich = ActiveSheet.Range("AL6")
Bereich = txtBox752.Text
End Sub

Danke für eure Hilfe!
LG
Björn