Как очистить текст от всех текстовых полей файла XLS, не удаляя поля?

Question

Как очистить текст от всех текстовых полей файла XLS, не удаляя поля?

Спасибо!

Answer 1

см. Этот код

Sub TextBoxClear()
    For Shts = 1 To ActiveWorkbook.Sheets.Count
        Sheets(Shts).Select
        For TextCnt = 1 To ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(TextCnt).Select
            Selection.Characters.Text = " "
        Next
    Next
End Sub