Looping until an empty cell

Hello
I have a macro in which i am taking information from one cell and puting it in to a text box but need to repeat this process from B1 to C1 to D1 etc here is what I have so far

Dim shpTextBox As Shape
        
Set shpTextBox = Sheet3.Shapes("Text Box 1")
shpTextBox.TextFrame.Characters.Text = Sheet2.Range("B1").Value
 
End Sub

Hi,

Try this:

Dim myRange As Range
Set myRange = Sheet2.Range("A1:D1") ' specify your range here
Set shpTextBox = Sheet3.Shapes("Text Box 1")

' ------- Loop ------
For Each cell In myRange
 shpTextBox.TextFrame.Characters.Text = cell.Value 
Next cell
'----------- end loop ---------

You may have to modify the line inside the loop. The way I see it now is that the last value will overwrite the previous one!

Regards.