Как макросом заменить пустые ячейки словом "пусто"

[KOSTIK1]

Добрый день! Есть диапазон "В4:В30" в нём встречаются пустые ячейки, помогите пожалуйста с макросом заменить эти пустые ячейки на слово - "Пусто". Спасибо!

[AChrist]

Выделяете нужный диапазон и выполняете макрос

Sub replace()

 For Each c In Selection
        If c.Value = "" Then c.Value = "Пусто"
    Next c

End Sub

[KOSTIK1]

Спасибо! РАБОТАЕТ! ;-)