Макрос для очистки

[Сергей Калинин]

Добрый день.
Пытаюсь создать тесты в екселе(2007) но наткнулся на одну беду.
Нужен макрос очищающий значение флажков, переключателей и списков(Проверка данных, списки) во всех листах в книге.

[Staniiislav]

Код Выделить Развернуть

Sub clear()
Dim i%, RowMax&, rng As Range
If MsgBox("Очистить ячейки?", vbYesNo, "Подтверждение") = vbNo Then Exit Sub
On Error Resume Next
    For i = 1 To ThisWorkbook.Sheets.Count
        With ThisWorkbook.Sheets(i)
            RowMax = .Range("B:V").Find("укажите символ для поиска и очистки", , , xlWhole, xlByRows, xlPrevious).Row
            Set rng = .Range("укажите диапазон" & CStr(RowMax))
            rng.SpecialCells(xlCellTypeConstants).ClearContents
            Set rng = Nothing
        End With
    Next
End Sub

[Сергей Логинов]

то что нужно! как раз это искал, спасибо!