Thread: VBA Code - multiple cell loop to txtbox Question/Problem

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.