VBA .Sort feature for List Box
<p>I've used this exact same VBA code before on other listboxes to add non-duplicates quite successfully. Unfortunately, this time it's giving me an error "application-defined or object-defined error." Any insights on this is greatly appreciated, I'm not sure why it's not adding the items to the list. This is an ActiveX listbox as well, that is being added on the worksheet instead of a user form. I've done this exact same code before without problems, but this time it errors out at: <strong>rngData.Sort</strong></p>

<pre><code>Private Sub lstCountry_Click()
Dim wsData As Worksheet
Dim strID As String
Dim rngData As Range
Dim rngCell As Range
Dim shtPivot
Set shtPivot = ThisWorkbook.Worksheets("Pivot")
Set wsData = ThisWorkbook.Worksheets("Raw Data")
Set rngData = wsData.Range("a2").CurrentRegion


lstCountry.Clear
strID = "Select Country"
rngData.Sort key1:=strID, Header:=xlYes


For Each rngCell In rngData.Columns(1).Cells
    If rngCell.Value &lt;&gt; strID Then
        lstCountry.AddItem rngCell.Value
        strID = rngCell.Value
    End If
Next rngCell
</code></pre>

<p>Attached is a screenshot of the table that I'm trying to sort
<a href="https://i.stack.imgur.com/EV3Nt.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/EV3Nt.png" alt="enter image description here"></a></p>