alle cellen vullen in selectie.

[vrouw]

Ik gebruik onderstaande macro om een cel een kleur en tekst te geven.
Hoe moet de macro zijn als ik meer cellen selecteer en in ieder van de cellen het woord vakantie zet?

Sub vakantie()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.FormulaR1C1 = "Vakantie"
    
End Sub

 

[Cobbe]

Deze misschien?

 Dim cl As Range
  For Each cl In Selection
    cl = "Vakantie"
  Next

 

[vrouw]

Deze misschien?

 Dim cl As Range
  For Each cl In Selection
    cl = "Vakantie"
  Next

Super, bedankt