>>796
動いたよ。
どのワークシートのCellsなのかが不明なのでは。
ValueかTextかは別に関係ないかな
For文の後ろは書ききれなかっただけ？

Sub Renketsu()
　　Dim str As String
　　Dim i As Long
　　str = ""
　　For i = 1 To 5
　　　　str = str & Me.Cells(i, 1).Text & "▲"
　　Next i
　　MsgBox str
End Sub