Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge <> 1 Then Exit Sub
If Intersect(Me.[D:D,F:F,H:H], Target) Is Nothing Then Exit Sub
If VarType(Target.Value) <> vbString Then Exit Sub
If Not Target.Value Like "*'*" Then Exit Sub
Target.NumberFormat = "[m]\'ss"
Target.Value = VBA.TimeValue("00:" & Replace(Target.Value, "'", ":"))
End Sub