vba - Excel/vbaは文字を検索し、スーパーシプトの後に2文字を置き換えて作成します

Question

私が望むのは、「#」文字を見つけて削除し、その後に2文字を上付き文字にすることです。私はこのコードを持っています：

    pos = InStr(mycell.Value, "#")
    If pos > 0 Then
        mycell.Replace What:="#", Replacement:=""
        mycell.Characters(Start:=pos + 1, Length:=2).Font.Superscript = True
    End If

交換するだけで動作します。いくつかの文字の上付き文字のみを作成すると、機能します。両方の場合 - 交換のみ。