Type Mismatch Hatası Hk

[Eren0734]

Herkese merhaba , forumu yakından takip edip birçok konusa destek alıyorum öncelikle teşekkürler. Yine bu forumdan aldığım kod ile G:K sütunları arasında otomatik sayıları saate çevirme kodu kullanıyorum. Ancak belirtilen sütunlara yanlışlıkla harf yazılınca aşağıdaki hatayı alıyorum ve formül çalışmıyor . yardımlarınızı rica ediyorum teşekkürler
run time error 13 type missmatch hatası alıyorum. Aşağıdaki kodu kullanıyorum

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [G:K]) Is Nothing Or Target.Row < 2 Then Exit Sub
 
    Application.EnableEvents = False
 
    Target = TimeSerial(Int(Target.Value / 100), Target.Value Mod 100, 0)
 
    Application.EnableEvents = True
 
End Sub