autofilter based on cell input (=>)

Hi, I want to apply an autofilter based on cell input in G2 - I want to filter the entire worksheet (based on column I) if the value is = or > than input value in G2
The code below, works perfectly however only gives me values EQUAL TO G2-cell input... somehow I cannot fiugre out to change the code to giving me all values above G2 input value.
(ps - the part that there is no filter applied if G2 is "" is also important and shall not be changed

Many thanks!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Range("I5:I60000").AutoFilter
If Range("G2").Value <> "" Then Range("I5:I60000").AutoFilter Field:=1, Criteria1:=Range("G2").Value
End Sub

Try this

Please Login or Register  to view this content.

Hi,
thanks a lot for getting back to me.
I have tried your code but unfortunately it does not work - any other ideas???
thanks

Hi,
no G2 is not a date it is a value (e.g. 100)