Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Column
Case 2 To 3
Select Case .Row
Case 10 To 30
If InStr(1, .Value, '.') > 0 Then
.Value = Replace(.Value, '.', ':')
ElseIf InStr(1, .Value, ',') > 0 Then
.Value = Replace(.Value, ',', ':')
End If
End Select
End Select
End With
End Sub