This code will check column A,
rows 1 to 25 and make a string
see if this helps...

=================================
Sub StringCreat()
Dim rw As Long, str As String

For rw = 1 To 25
If Len(Cells(rw, 1)) 0 Then
If Len(str) 0 Then
str = str & ", " & Cells(rw, 1).Text
Else
str = Cells(rw, 1).Text
End If
End If
Next
MsgBox str
End Sub
====================================

--
steveB

Remove "AYN" from email to respond
"DorisM" wrote in message
...
New to VBA so I'm not sure if this is possible. In a program, I'm trying
to
concatenate string variables with comma after each variable, but the
number
of occurrences of string variable can be different from time to time.
????