Extract unique values from range

Thanks all! I ended up with a mix of both solutions and it seems to work just fine!

Sub GetSeasonCodes()
    
    Dim LR As Long
    Dim SS_Codes As Variant
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    LR = Sheets("Recap").Cells(Rows.Count, Range("Attribute_SuperSeason").Column).End(xlUp).Row
    Sheets("Control").Range("A3").EntireColumn.ClearContents

    Sheets("Recap").Range("" & ColName(Range("Attribute_SuperSeason")) & "1").Resize(RowSize:=LR).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Control").Range("A3"), Unique:=True
        
    Sheets("Control").Range("A3").Delete Shift:=xlUp
    
    Sheets("Control").Range("A3:A10").Sort Key1:=Sheets("Control").Range("A3"), Order1:=xlAscending, Header:=xlNo
        
    SS_Codes = WorksheetFunction.Transpose(Sheets("Control").Range("A3:A5").Value)
    
    Sheets("Control").Range("A3").EntireColumn.ClearContents
    
    Sheets("Recap").Range(Sheets("Recap").Cells(1, 1), Sheets("Recap").Cells(1, Columns.Count)).AutoFilter
    
    MsgBox SS_Codes(1) & "   " & SS_Codes(2) & "   " & SS_Codes(3)
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Didn't know that the advanced filter method is common to use in VBA to find unique values. It's probably even a lot faster than some of the other array calculations...