Get Value From Cell

[jo15765]

I am needing to capture the text from all the cells in column B. Sample data reads like this
Blue
Red
Green
Pink
Orange

Psuedocode would be
Get value from B2
Debug.Print value
Next value

What is VBA syntax for this?

[Winon]

Hello jo15765,

I am needing to capture the text from all the cells in column B. Sample data reads like this

Where do you want to capture the text to, or where or how would you like it displayed?

[jolivanes]

Sub You_Mean_Something_Like_This()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
    MsgBox Cells(i, 2).Value
Next i
End Sub

But like Winon mentioned, I guess you want the result pasted somewhere.
Where oh where will that be though

[Winon]

You could also have it like this,

Option Explicit
Sub testjo()
Dim Data As Range, MyArray As Variant
Dim cell As Range, Mytext As Variant
Dim counter As Integer, i As Integer
Dim lastRow As Long
 counter = 0

lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

Set Data = Range("B2:B" & lastRow)

    MsgBox Join(Filter([transpose(if(a1:a1000<>"",a1:a1000,char(2)))], Chr(2), 0), vbLf), vbOKOnly, ("Results")
 
 For i = 2 To lastRow
 
      If Cells(i, 2).Value <> "" Then
         Cells(counter + 2, 10).Value = Cells(i, 2).Value
         counter = counter + 1
     End If

Next i

End Sub

[jo15765]

Thank the both of you for a response. What my long term goal is to read the cell value (which I now have examples of doing such) and use that as the worksheet name to hyperlink to. I am googling on how to do this exactly, but I see that it can be done. My data is similar to this set-up
Blue 16

So I have a worksheet named Blue - and I want the number 16 to be a hyperlink to the worksheet Blue.

[jo15765]

This is invalid syntax, but how would I modify it to work?

Sub You_Mean_Something_Like_This()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
	ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value"!A1"
Next i
End Sub