se eu não me engano já vi algumas coisas a respeito,   eu mesmo postei uma função que faz isso mas teria que adaptar para a loto mania   Function Cont_grupo(ParamArray Grupos_juntos() As Variant) Dim TG1 As Long, TtL As Long, Coluno(), L1 As Long, C1 As Long With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 End With Cc1 = UBound(Coluno, 2)