Kan ikke flette celler i beskyttet ark.

Jeg har et skema hvor man kan reservere nogle tidspunkter.
når der er markeret klikkes på reserver.
Denne kode fletter cellerne og markerer med rød.
With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge

Men jeg kan ikke få lov til at flette når arket er beskyttet.
er det muligt at omgå dette ?