変更してください、ですかあ。
正規表現というものを使った例です。
対象セル範囲は、選択範囲としました。
Sub test()
Dim re As Object
Dim matches As Object
Dim m As Object
Dim s As String
Dim r As Range
Set re = CreateObject("VBScript.RegExp")
With re
.Global = True
.Pattern = "(\([^)]*?\))"
End With
For Each r In Selection
s = r.Text
Set matches = re.Execute(s)
For Each m In matches
r.Characters(m.FirstIndex + 1, m.Length).Font.Name = "ＭＳ Ｐ明朝"
Next
Next
End Sub
カッコ記号は例示に則り、半角を前提としました。
なお、カッコが複数あっても上記は対応できていますが、
それが仮に入れ子になっていると、難易度が高くなりますね。
上記はそれには対応していません。
