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