Merge/Unmerge cells in a shared woorkbook

Hello,

We were having issues with our Vehicle Rota around people making multiple copies because they were opening it in read-only and people leaving the Rota open then leaving so I altered it to a [Shared] document.

However now they can't merge and unmerge cells which they like to do occasional so I was wondering if there was a way to create a button or two to do this, I know I can do it by unsharing and merging then resharing but they will forget to reapply the share settings so I would like to make it simpler for them.

I tried

Sub Merge()
'
' Merge Macro
'

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub

Which work until you make the document [Shared]

Any suggestions/solutions welcomed

I am still getting used to this but willing to learn, however the solution must be fairly simple for the user as a lot of the people in my department are boarding technophobic.

Thanks~

No worries, thank you, I was just wondering if there were any loop holes or such.

Thanks for the response though I'll just tell 'em they have to live with it.

~