Excel2013 置換で真ん中の数字を、ハイフンにしたい

Question

Excelの項目にある3ケタの数字の、真ん中のゼロ（必ず２ケタめはゼロ）を、ハイフンに置き換える方法を教えて下さい。

例：400　→　4-1にしたいと思っています。

すべて3ケタで、2ケタ目はゼロですが、1ケタ目は、数字が変わります。

アドバイスをよろしくお願いいたします。

Answer 1

マクロでよければ

Sub 置換test()

    '置換したいセルを選択してから実行

    Dim seru As Range

    For Each seru In Selection

        seru.NumberFormatLocal = "@"

        seru.Value = WorksheetFunction.Replace(seru.Value, 2, 1, "-")

    Next

End Sub

Answer 2

アドバイスいただき、ありがとうございました。