Count Unique Values in a Cell - and the Entire Range that Cell Resides In

Public Function V(Optional vrnt As Variant) As Variant
'
' Stephen Dunn
' 2002-09-12
'
Static vrntV As Variant
If Not IsMissing(vrnt) Then vrntV = vrnt
V = vrntV
End Function

Public Function EVAL(theInput As Variant) As Variant
'
' if UDF evaluate the input string as though it was on this sheet
' else evaluate for activesheet
'
Dim vEval As Variant
Application.Volatile
On Error GoTo funcfail
If Not IsEmpty(theInput) Then
If TypeOf Application.Caller.Parent Is Worksheet Then
vEval = Application.Caller.Parent.Evaluate(CStr(theInput))
Else
vEval = Application.Evaluate(CStr(theInput))
End If
If IsError(vEval) Then
EVAL = CVErr(xlErrValue)
Else
EVAL = vEval
End If
End If
Exit Function
funcfail:
EVAL = CVErr(xlErrNA)
End Function

Function aconcat(a As Variant, Optional sep As String = "") As String
' Harlan Grove, Mar 2002
Dim y As Variant
If TypeOf a Is Range Then
For Each y In a.Cells
aconcat = aconcat & y.Value & sep
Next y
ElseIf IsArray(a) Then
For Each y In a
aconcat = aconcat & y & sep
Next y
Else
aconcat = aconcat & a & sep
End If
aconcat = Left(aconcat, Len(aconcat) - Len(sep))
End Function

=SUM(IF(FREQUENCY(IF(V(EVAL("{"&CHAR(34)&SUBSTITUTE(SUBSTITUTE(REPLACE(aconcat(SUBSTITUTE(";"&$A$2:$A$6,CHAR(10),";")),1,1,""),";",CHAR(34)&";"),";",";"&CHAR(34))&CHAR(34)&"}"))<>"",MATCH(V(),V(),0)),ROW(INDIRECT("1:"&COUNTA(V())))),1))

Sub GetUniqueCount()
' hiker95, 09/06/2014
Dim c As Range, n As Long, s, i As Long
Application.ScreenUpdating = False
With CreateObject("Scripting.Dictionary")
  .CompareMode = vbTextCompare
  For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If InStr(c, vbLf) Then
      s = Split(c, vbLf)
      For i = LBound(s) To UBound(s)
        If Not .exists(s(i)) Then
          .Add s(i), 1
          n = n + 1
        End If
      Next i
    Else
      If Not .exists(c.Value) Then
        .Add c, 1
        n = n + 1
      End If
    End If
  Next c
End With
With Cells(1, 3)
  .Value = "Unique Count"
  .Font.Bold = True
End With
Cells(2, 3) = n
Columns(3).AutoFit
Application.ScreenUpdating = True
End Sub