Tenho o seguinte código:
Private Sub CommandButton1_Click()
OrdenarCombo (ComboBox1)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("D")
ComboBox1.AddItem ("C")
ComboBox1.AddItem ("B")
ComboBox1.AddItem ("A")
End Sub
Public Sub OrdenarCombo(Combo As ComboBox)
Dim contA As Integer
Dim contP As Integer
Dim menor As String
Dim Elem As Integer
Elem = Combo.ListCount
For contA = 0 To Elem - 2
For contP = contA + 1 To Elem - 1
If Combo.List(contA) > Combo.List(contP) Then
menor = Combo.List(contP)
Combo.List(contP) = Combo.List(contA)
Combo.List(contA) = menor
End If
Next contP
Next contA
End Sub
Ao clicar no botão do formulário com a combobox, dá o erro objeto é obrigatório, referente à linha:
OrdenarCombo (ComboBox1)