Meerdere cellen aankruisen via macro

[stefano]

Ik heb onderstaande code om meerdere cellen de inhoud "x" mee te geven. Kan ik dit vereenvoudigen door een range van cellen te definiëren en die op te vullen met een x ? Zo ja kan iemand de code meegeven aub?

dank,

Stefaan

Sub KVBM_MYC_ZM_GMS_MICRO()

Application.Run "KVBM_DM_CLEAR"

    Range("F14").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F18").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F19").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F23").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F24").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F25").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F26").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("F29").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I7").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I9").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I10").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I11").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I12").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I15").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I16").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I23").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("I25").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("A1").Select
End Sub

 

[gast0660]

Range("F14,F18:F19,F23:F26,F29,I7,I9").Value = "x"

 

[stefano]

Dank !