Permission Denied Error

I keep getting a permission denied error. Here is where debug freaks out:


'Adds the unique items from the chosen named range into the collection called NoDupes
On Error Resume Next
For lRow = 1 To rRng.Rows.Count
With rRng(lRow)
NoDupes.Add .Value, CStr(.Value)
End With
Next lRow
On Error Goto 0
'copies each item in NoDupes into the chosen Combox
For Each item In NoDupes
cmBox.AddItem item ' <<<Debug stops here on 2nd pass
Next item

Do While NoDupes.Count > 0
' deletes each item from the collection
NoDupes.Remove NoDupes.Count
Loop
' clears memory
Set NoDupes = Nothing


The error pops up after the code has completed it's first loop and well into the 2nd loop.