My mistake - please use the substitute cope below on the module1 sheet in the VBA editor. I'd forgotten to reset the start point when the second or subsequent occurence was found.
Sub Update()
Columns(11).ClearContents
For N = 1 To 49
Counter = 0
LastTime = 0
For M = 2 To Cells(65536, 2).End(xlUp).Row
If Application.CountIf(Range(Cells(M, 2), Cells(M, 7)), N) > 0 Then
If Cells(N, 11) = "" Then
Cells(N, 11) = M - 1
Else
Cells(N, 11) = Cells(N, 11) & "-" & M - 1 - LastTime
End If
LastTime = M - 1
End If
Next M
Next N
End Sub
Bookmarks