VBscript для получения общего количества уникальных значений в электронной таблице

Question

ОБНОВЛЕНО с вопросами: так что я использовал счет раньше и не имел проблем. Однако я пытаюсь получить общую сумму для каждого уникального значения в электронной таблице. Я использую сценарий vb, потому что мне нужно, чтобы он находился вне Excel по нескольким причинам. Итак, если мои данные выглядят так:

Bob
Bob
Ted
Ann
Ann

I'm looking for the results to be 
Bob =2
Ted = 1
Ann = 2
etc...

Это то, что у меня есть до сих пор, что дает мне мое уникальное количество, но не общее количество уникальных элементов ...

    Dim objDict,item,arr,cRow, result,count
        Set objDict = CreateObject("Scripting.Dictionary")
        arr= .Sheets(1).Range("A2:A" & iLastRow )
    For Each key In arr
           If key <>"" Then
              If Not objDict.Exists(key) Then objDict.Add key, Nothing
              else
                 objDict.key("name").Item = objDict.Item() + 1 
              end if
            End If
    Next

Я обновился с предложением Marks, но продолжаю зависать от клавиши. Я не понимаю, как использовать в этой ситуации. Из предоставленного Марком файла справки пример добавляет ключ и элемент. Я просто добавляю ключи, так чего мне здесь не хватает?

Спасибо за любую помощь в этом. Приветствуются только указатели в правильном направлении.