indtaste dato i celle UDEN bindestreger

I kolonne A indtaster jeg en masse datoer ind.
Jeg har nedenstående kode, som laver binde streger.

Men jeg vil gerne have koden til at være mere specifik.
Den skal sikre at det altid er en dato man skriver.
I Sheet1 har jeg navn givet felterne "dato_fra" og "dato_til"
I disse celler står der f.eks 01-01-2011 og 31-12-2011

Koden skal så teste om den indtastede dato ligger mellem disse to datoer.
Hvis ikke, skal cellen "tømmes" og der skal komme en popup, med at det er en ulovlig dato.

Dvs at man ikke må kunne taste andet end dato i et given interval i cellen.

Er der nogen der kan knække den?


Min kode som virker.....

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        If Not IsNumeric(Target.Value) Then Exit Sub
        Application.EnableEvents = False
        Select Case Len(Target.Value)
            Case 6
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-20" & Right(Target.Value, 2)
             
            Case 8
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-" & Right(Target.Value, 4)
               
        End Select
        Application.EnableEvents = True
    End If
   
End Sub



Her er mit forsøg på at tilrette, uden held...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
      If Not IsNumeric(Target.Value) Then Exit Sub
      Application.EnableEvents = False
        Select Case Len(Target.Value)
            Case 6
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-20" & Right(Target.Value, 2)
                  If Target.Value >= Sheets("sheet1").Range("dato_fra") And Target.Value <= Sheets("sheet1").Range("dato_fra") Then
                    Exit Sub
                    Else: MsgBox ("Fejl")
                  End If
           
            Case 8
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-" & Right(Target.Value, 4)
                Selection.NumberFormat = "mm/dd/yyyy"
                If Target.Value >= Sheets("sheet1").Range("dato_fra") And Target.Value <= Sheets("sheet1").Range("dato_fra") Then
                    Exit Sub
                    Else: MsgBox ("Fejl")
                  End If
        End Select
        Application.EnableEvents = True
    End If
End Sub