XL2000: Sounds Not Converted with Cell Notes (213244)

CAUSE

This behavior may occur when the all of following conditions are true:

You create a workbook in Microsoft Excel 5.0 or 7.0.

-and-
You insert a cell note.

-and-
You import a sound into the cell note.

-and-
You open the workbook in Microsoft Excel 2000.

Microsoft Excel 2000 converts cell notes into cell comments when you open a workbook that was created in an earlier version. However, sound notes are not supported in Microsoft Excel 2000, and the message is displayed.

WORKAROUND

When the "[Sound not converted]" message appears, you can leave the message in the comment, edit the message text, or delete the comment.

To edit a cell comment, use either of the following methods.

Method 1: Edit the Cell Comment Manually

To edit the cell comment manually, follow these steps:

Select the cell that contains the cell comment.
On the Insert menu, click Edit Comment.
Edit the comment.
Click any cell on the worksheet to stop editing the comment.

NOTE: If you want to clear the comment from a cell, select the cell that contains the comment, point to Clear on the Edit menu, and click Comments.

Method 2: Use Visual Basic Macro to Remove the Message

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. If you want to remove the "[Sound not converted]" text from any comments on the worksheet, follow these steps:

Type the following macro code into a Visual Basic module:

Sub Clear_Comment_Message()
   On Error Resume Next
   For Each x In Selection
      cell_comment = ""
      cell_comment = x.Comment.Text
      If cell_comment <> "" Then
         If InStr(cell_comment, "[Sound not converted]") Then
            cell_comment = Right(cell_comment, Len(cell_comment) _
               - 22)
            x.Comment.Text cell_comment
         End If
      End If
   Next x
End Sub

Select the range of cells on the worksheet that contains the comments you want to change.
Run the Clear_Comment_Message macro.