Hi All,

Column A has values increasing by 1 but not necessarily each row, i.e.

1
1
1
2
2
2
3
3
3
4
4
4
4
5
5
5
5
6
7
7
7
8
8
9
10
10
11
11
11
11
12
13
13
14
14
14

I have a listbox which I want to Initialize by listing these values but not duplicating them (so in this case it would contain 1-14). Here is the mindblowingly complicated code I currently have:

Private Sub UserForm_Initialize()
 With ApprovalBox
.RowSource = "sheet1!A1:A100"
End With
ApprovalBox.ListIndex = 0
End Sub
This gives me the list as it appears on the sheet but doesn't get rid of the duplicates for me. Any help would be greatly appreciated. Many Thanks