Hi Gary's Student,

Thank you very much for your time and assistance. That's Great! Provides the
desired results.

What do I need to modify to put the results back into the worksheet?

Cheers,
Sam



Gary''s Student wrote:
Sub sam()
Dim s As String
For i = 1 To 8
For j = 2 To 7
v = Cells(j, i).Value
If Cells(j - 1, i).Value = v Then
If s = "" Then
s = v
Else
s = s & "," & v
End If
MsgBox ("column " & i & " " & v)
End If
Next
Next
MsgBox (s)
End Sub

gives result in MSGBOX format. You can modify the code if you need the
results put back into the worksheet.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200702/1