Ordenar un range en vba
Hola y gracias de antemano.
Estoy construyendo una función que recibe un rango y lo ordena, para luego hacer unas comparaciones. Sin embargo al emplear rango.sort, la función me retorna un error.
Gracias por su colaboración.
Public Function sumaSin(rango As Range) As Double
Dim sum, ant, act As Double
Dim c As Range
rango.Sort 'Esta linea daña la función
sum = 0
ant = 0
For Each c In rango.Cells
act = c.Value
If Not ant = act Then sum = sum + act
ant = act
Next c
sumaSin = sum
End Function