Excelで機械のデータシート表を作っていまして楽をするためにカッコ付きに変換するマクロを書きましたが
数字だとマイナスに　　ex. 123 -> -123
和暦だと西暦に　　ex.平成28年1月1日　-> (2016/01/01)
なってしまいます
文章文字列などならうまくいくのですがどのようにマクロを書いたらいいのでしょうか

Sub 括弧()
ActiveCell.Value = "(" & ActiveCell.Value & ")"
End Sub