将多个单元格链接到TextBox VBA

嗨，我是新来的VBA，但想做一些看似简单的事情，但我无法弄清楚。

我想链接多个单元格到一个文本框，并在不同的行上的值。 防爆。 A1 =蓝色; B1 =红色; C1 =黄色

我想要一个文本框返回：
红
蓝色
黄色

我无法在任何地方find答案。

我现在的代码是：

Sub Macro2() ' Macro2 Macro ActiveSheet.Shapes.Range(Array("TextBox 2")).Select Selection.Formula = "=$A$1" End Sub 

这将A1的值返回到文本框中，但是我也需要B1和C1的值。

任何帮助，将不胜感激。 谢谢

更新：

埃尔伯特比利亚雷亚尔的答案解决了我的问题，但我还有最后一个问题。

我有多行，我想这样做（A2，A3，A4）。 有没有办法为这些不同的数据行做循环？

Answer 1

有了这个，你可以做你所问：

 Sub Stobi1() Dim txt As String 'Where to store the text/data Dim myTxtBox As Shape 'where to store the textbox that is a Shape Set myTxtBox = ActiveSheet.Shapes("myTextBox") 'take the name of your textbox txt = Range("A1").Value & Chr(10) & Range("B1").Value & Chr(10) & Range("C1").Value 'this whay you can take the strings of the cells and "write it" with a new line between myTxtBox.TextFrame2.TextRange.Characters.text = txt 'Put your text inside the TextBox End Sub