Vic
Easiest way I can think to do this is to build your own function.
Put the code below into a general module attached to the workbook.
Function ConComb(xx)
Dim Vnum As Integer
Dim nodupes As New Collection
ConComb = ""
Vnum = Len(xx) - Len(Replace(xx, "V", ""))
If Vnum > 1 Then
For i = 1 To Len(xx)
If Mid(xx, i, 1) = "V" Then
nodupes.Add Item:=i, key:=CStr(i)
End If
Next i
For i = 1 To nodupes.Count - 1
ccnt = nodupes(i + 1) - nodupes(i)
If ccnt > 2 Then
holder = holder & Mid(xx, nodupes(i) + 1, ccnt - 1) & ","
End If
Next i
ConComb = Left(holder, Len(holder) - 1)
End If
End Function
Say your data starts in A1, then enter the formula
=concomb(A1)
and copy down.
HTH
rylo
Bookmarks