Fra 1800 til 18:00 - automatisk

I følgende spørgsmål:
http://www.eksperten.dk/spm/646264

fandt jeg den kode der gengives her nederst i spørgsmålet.
Når koden er sat ind i Microsoft Excel Objects - Ark1, virker den på den måde, at når man, i celler der er formateret med formatet [tt]:mm taster f.eks. 1800, så bliver det automatisk ændret til 18:00.
Men hvis man ændrer i flere celler samtidig, f.eks. sletter en del af en kolonne, får man en 'Run-time error 13', og debuggeren åbner.
Kan i hjælpe meg med at få fjernet denne fejl?

Her er den kode jeg bruger:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("D15:G45")) Is Nothing And Target <> "FEJL!" Then
    If Target >= 1 And Len(Format(Target, "0")) <= 4 Then
        iTime = Left(Format(Target, "0000"), 2)
        iMinut = Right(Format(Target, "0000"), 2)
        If iTime < 24 And iMinut <= 59 Then
            Target = iTime / 24 + iMinut / 24 / 60
        Else
            Target = "FEJL!"
        End If
    Else
        If Not Target < 1 Then Target = "FEJL!"
    End If
End If

End Sub