AutoFilter Percent Values +-5%

[p45cal]

What do you get if in the Immediate pane you type:

?">=" & 3.3

and press Enter?
>=3.3
or
>=3,3

?

To make my last suggestion work in more locales consider also:

crit1 = Replace(">=" & MinValue, ".", Application.International(xlDecimalSeparator))
crit2 = Replace("<=" & MaxValue, ".", Application.International(xlDecimalSeparator))