Hi Mr., sorry try this now:
Private Sub UserForm_Initialize()
Dim contA As Integer
Dim contP As Integer
Dim small As String
Dim Elm As Integer
Elm = ComboBox1.ListCount
For contA = 0 To Elm - 2
For contP = contA + 1 To Elm - 1
If ComboBox1.List(contA) >
Thanks Basole Sir for response
this is not working
On Wed, Jan 1, 2014 at 8:46 PM, Basole wrote:
> Hi Rp,try this other option:
>
>
>
> Private Sub UserForm_Initialize()
> Dim contA As Integer
> Dim contP As Integer
> Dim small As String
> Dim Elm As Integer
> Elm = ComboBo
Hi Rp,try this other option:
Private Sub UserForm_Initialize()
Dim contA As Integer
Dim contP As Integer
Dim small As String
Dim Elm As Integer
Elm = ComboBox1.ListCount
For contA = 0 To Elm - 2
For contP = contA + 1 To Elm - 1
If ComboBox1.List(contA)