List Of Unique Value?

I've got noticed "Sub or Function not defined". Here's the code:

VB:
Private Sub UserForm_Initialize()
' Abul Jibrin // November 2013
'------------------------
Dim Item As Range, UniqItem, n As Long
Set Tbl = Sheets("Sheet1").Cells(1, 2).CurrentRegion
Set Cabang = Tbl.Offset(2, 2).Resize(Tbl.Rows.Count - 2, 1)

[Code] ....

Note: I found that code :

Add item in combobox isn't using hardcoded but taking UniqueValue in column Item (which means using softcoded)
Unfortunately my friend's passed away so I can't continue asking him. I was trying to study his formula on my own but it still doesn't work at all

Here's the file : LIST OF UNIQUE VALUE.xlsm