I have a column in a worksheet which let's say looks that way:

1
3
2
4

I would like to sort it in order to get:

1
2
3
4

I tried to adapt this funtion but couldn't get it work... Can anybody help me?
I must miss something here... I always get #VALUE even using SHIFT+CTRL+ENTER

Function BubbleSort(List As Variant)
' Sorts an array using bubble sort algorithm
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp As Integer

First = LBound(List)
Last = UBound(List)
For Each Element In List
For j = i + 1 To Last
If List(i) List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
'Next i
Next Element
End Function