Sub onlycomb()
t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
x = 0
For i1 = 0 To UBound(t)
For i2 = i1 + 1 To UBound(t)
If t(i1) <> t(i2) Then
x = x + 1
Cells(x, 1) = t(i1) & t(i2)
End If
Next
Next
End Sub
Sub combiviceversa()'permute
t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
x = 0
For i1 = 0 To UBound(t)
For i2 = 0 To UBound(t)
If t(i1) <> t(i2) Then
x = x + 1
Cells(x, 1) = t(i1) & t(i2)
End If
Next
Next
End Sub
Sub howmanycomb()
t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
MsgBox (UBound(t) + 1) * UBound(t)
End Sub