Eduardo Durães

Ao tentar carregar uma combobox em ordem alfabética, esta dando o seguinte erro: "ERRO EM TEMPO DE EXECUSSÃO 70, PERMISSÃO NEGADA" CÓDIGO: Sub CarregarCombobox() Dim I, J As Long Dim TEMP, AREA As Variant ultimaLin = Sheets("PRODUTOS").Cells(Rows.Count, "B").End(xlUp).Row AREA = Range(Cells(2, 2), Cells(ultimaLin, 2)).Value For I = 1 To UBound(AREA, 1) For J = I + 1 To UBound(AREA, 1) If AREA(I, 1) > AREA(J, 1) Then TEMP = AREA(I, 1) AREA(I, 1) = AREA(J, 1) AREA(J, 1) = TEMP End If Next Next cmbProduto.List = AREA --> Onde o erro aparece.