Here is a work-around.

Sub MyFilter()
Dim c As Range
Dim ws As Worksheet
UndoMyFilter
Set ws = Sheets("Sheet1")
'change range to suit
For Each c In ws.Range("B2:B12")
If c = ws.Range("O3") And c <= ws.Range("O5") _
Then c.EntireRow.Hidden = True
Next c
End Sub

Sub UndoMyFilter()
'change rows to suit
Sheets("Sheet1").Rows("2:12").Hidden = False
End Sub

Hth,
Merjet