Vba Excel programming

    Columns("R:R").Select
    Selection.AutoFilter
    ActiveSheet.Range("$R$1:$R$1000").AutoFilter Field:=1, Criteria1:=RGB(255, 0 
        , 0), Operator:=xlFilterFontColor
    Cells.Select
    ActiveSheet.Range("$A$1:$AN$1000").RemoveDuplicates Columns:=2, Header:=xlNo
        Rows("2:2").Select
    ActiveWindow.FreezePanes = True

It gives me Run-time error 1004:

The command could not be completed by range specified.select a single cell 

Recent Questions...