RAN, извините за поздний ответ, проглядел, Ваш код вообще супер,
выделяй хоть все ячейки на листе работает отлично.
Код Kuzmichа выдавал ошибку если выбрать ячейки за пределами назначенного диапазона,
но я его "подрихтовал" :
Sub НЕТ_ЗАЛИВКИ() ' Удаление заливки из ячейки
On Error Resume Next
If Selection.Count <> Intersect(Selection, Range("B6:Y36")).Count Then
Call MsgBox("Выдели правильные ячейки!", vbInformation, Application.Name)
Else
Selection.Interior.ColorIndex = xlNone
Selection.ClearContent
End If
End Sub
вроде бы работает так как надо (я не спец-самоучка)

(если неверно-укажите пжл.)
Ещё раз Большое Вам спасибо за помощь
