Bingo!
Thanks Per.
That did it.
Best.


"Per Jessen" wrote:

Hello again Steve

I think this is what you want:

If NewString = "" Then
NewString = MyRng.Cells(cell, 1).Value
ElseIf MyRng.Cells(cell, 1).Value < "" Then
NewString = NewString & vbLf & MyRng.Cells(cell, 1).Value
End If

Best regards,
Per