Function GetRGBTest(Colour As Long, colInd As Integer) As String

Dim Dict As Object

If Colour > 0 Then
    GetRGBTest = "RGB(" & (Colour Mod 256) & "," & ((Colour \ 256) Mod 256) & "," & ((Colour \ 256 \ 256) Mod 256) & ")"
Else
    colInd = LTrim(Str(colInd))
    GetRGBTest = Dict.Item(colInd)
End If
End Function
Sub filtColor()
Dim col As Integer
Dim s As Integer
Dim x As Integer
Dim f As String
x = ActiveSheet.UsedRange.Rows.Count
s = ActiveCell.SpecialCells(xlLastCell).Row
col = ActiveCell.Column
f = GetRGBTest(Selection.Font.Color, Selection.Font.ColorIndex)
MsgBox f
ActiveSheet.Range(Cells(1, 1), Cells(s, col)).AutoFilter Field:=col, Criteria1:=f, Operator:=xlFilterFontColor
End Sub

ActiveSheet.Range(Cells(1, 1), Cells(s, col)).AutoFilter Field:=col, Criteria1:=f, Operator:=xlFilterFontColor