VBA For Unique Values In A Column

Sub LoopFiles()
    Dim oWb As Workbook, oNewBk As Workbook
    Dim rRng As Range, rData As Range
    Dim lRw As Long
    Dim sFldr As String, sFilName As String
    Dim fDialog As Object, List As Object
    
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    If fDialog.Show = -1 Then
        sFldr = fDialog.SelectedItems(1)
        Else: MsgBox "User cancelled selection"
        Exit Sub
    End If
    
    ''/// create new workbook
    Set oNewBk = Workbooks.Add
    ActiveWorkbook.SaveAs sFldr & Application.PathSeparator & "UniqueEntries.xlsx"
    
    sFilName = Dir(sFldr & "\*.xls*")
    
    Do While sFilName > "" And sFilName <> oNewBk.Name
        Set oWb = Workbooks.Open(sFldr & "\" & sFilName)
        Set List = CreateObject("Scripting.Dictionary")
        
        With ActiveSheet
            lRw = Cells(Rows.Count, 13).End(xlUp).Row
            If lRw = 1 Then
                
                With oNewBk.Sheets(1)
                    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = oWb.Name
                    .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = 0
                End With
                ''/// no data in sheet
                GoTo skip
            End If
            
            Set rData = .Range(.Cells(2, 13), .Cells(lRw, 13))
        End With
        
        For Each rRng In rData
            If Not List.Exists(rRng.Value) Then List.Add rRng.Value, Nothing
        Next rRng
        
        With oNewBk.Sheets(1)
            .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = oWb.Name
            .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = List.Count
        End With
        
skip:
        oWb.Close SaveChanges:=False ''///Close opened workbook w/o saving, change as needed
        Set List = Nothing
        sFilName = Dir()
    Loop
    
    MsgBox "All files checked", vbInformation, "Success"
    
End Sub