Formatting a filter command.

[USAMax]

I have revised the original command several ways and I still cannot get it to work.

ORIGINAL COMMAND
ActiveSheet.Range("$A$89:$K$140").AutoFilter Field:=6, Criteria1:=Array("2", "3", "4"), Operator:=xlFilterValues

MY COMMAND
ActiveSheet.Range("$A$" & Str(intFirstCompRow) & ":$K$" & Str(intLastCompRow)).AutoFilter Field:=6, Criteria1:=Array(Str(Cells(intFirstCompRow + 1, 5) - 1), Str(Cells(intFirstCompRow + 1, 5)), Str(Cells(intFirstCompRow + 1, 5) + 1)), Operator:=xlFilterValues

intFirstCompRow = 89
intLastCompRow = 140
Cells(intFirstCompRow + 1, 5) = 3 NOTE: This cell is F91 and formatted as a general format.

This should filter to values from 2 to 4.

Thank you everyone!

 

[USAMax]

UPDATE...

After I set the AutoFilter, I defined the range that I am using but it still does not work.

Set rngComp = Selection
ActiveSheet.rngComp.AutoFilter Field:=6, Criteria1:=Array(Str(Cells(intFirstCompRow + 1, 5) - 1), Str(Cells(intFirstCompRow + 1, 5)), Str(Cells(intFirstCompRow + 1, 5) + 1)), Operator:=xlFilterValues

Any suggestions, please?

 

[USAMax]

UPDATE...

I found a working solution. The range did not work, also the Str( command added a space. So this is my solution.

ActiveSheet.Range("$A$" & strFirstCompRow & ":$K$" & strLastCompRow).AutoFilter Field:=6, Criteria1:=Array(Str(Cells(intFirstCompRow + 1, 6) - 1), Str(Cells(intFirstCompRow + 1, 6)), Str(Cells(intFirstCompRow + 1, 6) + 1)), Operator:=xlFilterValues

Any help to simplify this would be appreciated.