Добрый день господа.

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

   ActiveCell.FormulaR1C1 = "яблоко"
   With Selection.Interior
       .Pattern = xlSolid
       .PatternColorIndex = xlAutomatic
       .ThemeColor = xlThemeColorAccent2
       .TintAndShade = 0.799981688894314
       .PatternTintAndShade = 0
   End With
   With Selection.Font
       .ThemeColor = xlThemeColorLight1
       .TintAndShade = 0
   End With