Meerdere Range's afvragen

[vliet1001]

Goeden avond,

Onderstaand een prima oplossing om ingaven automatisch van : te voorzien.
De afvraging vindt plaats van C4105
In klom E wordt een getal ingevoerd en mag niet worden afgevraagd.
Maar .......
Als ik nu meerdere kolommen wil afvragen, dus ook F4:G105
Hoe kan ik deze dan toevoegen binnen deze formule ?:thumb:


Met groet,
Jan


On Error Resume Next
If Intersect(target, Range("C4105")) Is Nothing Then GoTo Einde
If IsEmpty(target) Then GoTo Einde
If Hour(target.Value) <> 0 Or Minute(target.Value) <> 0 Then GoTo Einde
Application.EnableEvents = False
If Int(target.Value / 100) < 0.1 Then
target = "00:" & target.Value
Else
target = Int(target.Value / 100) & ":" & Right(target.Value, 2)
End If
Application.EnableEvents = True

Einde:
ActiveSheet.Calculate

 

[Wigi]

If Intersect(target, Range("C4:D105,F4:G105")) Is Nothing Then GoTo Einde