Excel VBA TextBox problem

E

excelnoob

I have a problem with creating a textbox with vba macro. The actua
creating isn't a problem but I need to Link a spesific cell as well
And that is giving me some hard time.

Below is the code that I have recorded and below that is the code
have written based on the recording. I would also have define th
backcolor of the textbox when it is created.


ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False
Left:=100, Top:=97, Width:=168, Height:=33).Select

ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1"
Link:=Range("G7"), Left:=100, Top:=97, Width:=168, Height:=33).Select

It does't give any error messages, but the cell isn't linked to th
textbox either.

Thank you for your responses
 
Top