怎么用函数改变单元格内特定文字的颜色和大小

Option Explicit
Sub test()
　　Dim rng As Range, a, b
　　For Each rng In ActiveSheet.UsedRange
　　　a = InStr(rng.Text, "["): b = InStr(rng.Text, "]")
　　　If a > 0 And b - a > 1 Then
　　　　With rng.Characters(a + 1, b - a - 1).Font
　　　　　　.Color = vbRed
　　　　　　.Size = rng.Characters(1, 1).Font.Size - 1
　　　　End With
　　　End If
　　Next
　　MsgBox "ok!"
End Sub