Skjul rækker hvis - VBA

sæt denne i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        For i = 5 To 15
            If Range("A" & i).Value < Target Then
                Range("A" & i).EntireRow.Hidden = True
            ElseIf Range("A" & i).Value >= Target Then
                Range("A" & i).EntireRow.Hidden = False
            End If
            If Range("A" & i).Value = Target Then Exit For
        Next
    End If

    If Target.Address = "$C$4" Then
        For i = 5 To 15
            If Range("A" & i).Value > Target Then
                Range("A" & i).EntireRow.Hidden = True
            Else
                Range("A" & i).EntireRow.Hidden = False
            End If
        Next
    End If
End Sub

indsæt i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:C4")) Is Nothing Then Exit Sub
Range("A5:A15").EntireRow.Hidden = False
tal3 = Range("A5:A15").Find(Range("C3").Value, LookIn:=xlValues).Row
tal4 = Range("A5:A15").Find(Range("C4").Value, LookIn:=xlValues).Row
Range("A5:A15").EntireRow.Hidden = True
Rows("" & tal3 & ":" & tal4 & "").EntireRow.Hidden = False
End Sub

Tak for svarene begge to.

Jeg har prøvet begge formler af og de funger begge, kunne godt tænke mig at vide hvad forskellen er på Excelent's svar i forhold til Kabbaks, men smider i lige et svar begge, så deler i pointene?

Forskel : prøv fx 2010 i C3 og 2006 i C4