求助大神，显示无效的过程或调用参数，是不是

Option Explicit
Sub 变色()
Dim red As Range, ak As Range
Dim zk%, yk%, sz%, jg%
Set red = ActiveSheet.Range("A1").CurrentRegion
For Each ak In red
zk = InStr(ak, "(")
yk = InStr(ak, ")")
sz = yk - zk
网页链接 print sz
jg = VBA.Mid(ak, zk, sz)
debug . print jg
If jg Like [A-E] Then ak.Character(zk, sz).font.color= vbRed
Next ak
End Sub