ツール→オプション→インターナショナル・数値の表示方法・小数点の記号で
「.」を「:」に変えればキー操作が楽になる。

Sub hajime()
Application.DecimalSeparator = ":"
' Columns("C:H").NumberFormatLocal = "h:mm;@"
End Sub

Sub motonimodosu()
Application.DecimalSeparator = "."
End Sub