Fill label or textbox with data from array

[pulpo]

Hello,
I have data in a range, let´s say A1:W1 and I have textbox or label (just to show information). I now want the the data from the range to show in my textbox the same as on my worksheet (from left to right). I tried using an array put the input method to the textbox won´t work.

Sub arr()
Dim myarr As Variant
Dim i As Integer
myarr = Sheets(1).Range("A1:W1").Value

With TextBox1
    For i = LBound(myarr) To UBound(myarr)
        .Text = .Text & myarr(i)
    Next
End With

End Sub

Please help to solve this easy task.

Best regards
pulpo

 

[My Aswer Is This]

Try this:
Assuming we are dealing with the Range("A1:W1")

Sub My_Script()
'Modified  2/10/2022  5:21:44 AM  EST
Application.ScreenUpdating = False
ActiveSheet.TextBox1.Value = ""
Dim i As Long
Dim ans As String
ans = ""
    For i = 23 To 1 Step -1
        ans = Cells(1, i).Value & " " & ans
    Next
ActiveSheet.TextBox1.Value = ans
Application.ScreenUpdating = True
End Sub

 

[pulpo]

Works perfect, thank you.

 

[My Aswer Is This]

Works perfect, thank you.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.