Fetter Teiltext einer Zelle in Klammern setzen

Sub Fett_Schrift()
Application.ScreenUpdating = False
Dim intStart As Integer, intEnde As Integer
Dim rng As Range
For Each rng In Range("e1:E" & Anzahl)
If Len(rng) > 0 Then
intStart = InStr(1, rng, "[")
intEnde = InStr(1, rng, "]")
If intStart > 0 And intEnde > 0 Then
Do
rng.Characters(intStart + 1, intEnde - intStart - 1).Font.Bold = True
intStart = InStr(intEnde + 1, rng, "[")
intEnde = InStr(intEnde + 1, rng, "]")
Loop While intStart > 0 And intEnde > 0
End If
End If
Next
End Sub