Цитата из книги «Excel. Трюки и эффекты»

Sub Clear() ' Выделение и очистка всех используемых для кроссворда ячеек Range(Cells(dhcMinRow, dhcMinCol), _ Cells(dhcMaxRow, dhcMaxCol)).Select Selection.Clear ' Удаление сетки всего кроссворда ClearGrid Range(«A1»).Select End Sub