Option Explicit
Sub xxx()
Dim ZMsg As String, I As Long, Col As Long
Col = 1
For I = 1 To 170
If ActiveSheet.Cells(I, Col).Value <> "" Then
If ZMsg <> "" Then ZMsg = ZMsg & vbLf
ZMsg = ZMsg & ActiveSheet.Cells(I, Col).Value: End If
Next I
MsgBox ZMsg, vbInformation, "Test"
End Sub