Excel オブジェクトを削除

Excelで編集上は問題ないけど印刷するとテキストボックスなどが幽霊がでてきたみたいに表示されてしまう場合は、ものすごく小さいサイズのテキストボックスや図形があると思われます。その場合、以下のモジュールで一旦すべてのオブジェクトを削除します。（すべての図形、オブジェクトが消えてしまうので注意）

Sub オブジェクト削除()
    Dim obj As Object
    Dim sheetname As String
    Dim i As Long, j As Long

    sheetname = ActiveSheet.Name
    i = 0
    For Each obj In ActiveSheet.DrawingObjects
        obj.Delete
        i = i + 1
    Next obj

    If i = 0 Then
        MsgBox "オブジェクトはありません", vbInformation
        Exit Sub
    End If

    MsgBox CStr(i) + "個削除しました!"

End Sub

先頭データが「ID」で始まるテキストまたは CSV ファイルを開けない問題

Excel97,2000で先頭のデータが文字列「ID」で始まるテキスト ファイルまたは CSV (カンマ区切りのテキスト ファイル) を [ファイル] メニューの [開く] コマンドなどで開こうとしても、SYLK 形式のファイルと認識されてしまい、ファイルを開くことができません。 この現象は Excel の仕様による動作になります。

どうみてもバグだと思うのですが・・・

参考URL
http://support.microsoft.com/default.aspx?scid=kb;ja;215591