やりたいこと

選択範囲に含まれる特殊文字（SO・SIが置き換わったもの）を削除する

やったこと

SOSI削除

Sub SOSI置換()

    For Each mycell In Selection
        ' SOの削除
        mycell.Value = Replace(mycell.Value, ChrW(&HBB), "")
         ' SIの削除
        mycell.Value = Replace(mycell.Value, ChrW(&HAB), "")
    Next mycell

    MsgBox "置換しました"

End Sub

これなにしてんの？

削除したい特殊文字をソース上に記述できないので、文字コードで指定することで解決します。
文字コードのコード体系はUnicode(16進)です。

ChrW関数

「文字コード=>文字」の変換
16進で指定するときは、&h[16進]

特殊文字の文字コードを調べる方法は２通り。

①「挿入」タブ=>「記号と特殊文字」

②AscW関数

「文字=>文字コード」の変換
0～65535の値が返ってくるのでHex関数で16進に変換する

セルを選択して下記を実行

Unicode取得

Sub Unicode取得()
    MsgBox Hex(AscW(ActiveCell.Value))
End Sub

参考リンク

▼MSDNライブラリ
Chr 関数、ChrW 関数
 Asc 関数、AscW 関数