Hello -
I'm using the following code:
Dim C As Integer
Dim Comments As String
Dim CommentString As String
Dim TotalComments As String
ActiveCell.Offset(0, 29).Activate
C = 0
CommentString = "Comments Begin:"
Do
If IsEmpty(ActiveCell) = False Then
Comments = ActiveCell.Value
TotalComments = CommentString & vbNewLine & Comments
CommentString = TotalComments
C = C + 1
ActiveCell.Offset(0, C).Select
End If
Loop Until IsEmpty(ActiveCell) = True
txtComments.Value = TotalComments
But for some reason the text box (txtComments) only displays the 1st, 2nd, 4th, 7th, 11th, 16th (and continuing in series) entries.
I'm afraid I've baffled myself, can someone point out what I'm doing wrong?
***
Removing the "c" variable fixed this. Not sure why.
Bookmarks