I get the run time error from time to time when I run a macro that has code to fill a cell with a color when a button is pressed. The entire macro is as follows:

Sub S9_0_9_2aMet()
'
' S1_0_1_1_1 Macro
'

'
    Range("O527").Select
    ActiveCell.FormulaR1C1 = "Yes"
         Sheets("Action Plan").Select
     Range("606:615").Select
    Selection.EntireRow.Hidden = True
    Sheets("Audit Tool").Select
         Range("M527").Select
    With Selection.Interior
        .Pattern = xSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092492
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("P527").Select
        Application.CutCopyMode = False
        Selection.ClearContents
        Rows("527:527").Select
        Selection.RowHeight = 78
End Sub
This macro is attached to approx. 175 control buttons in my workbook. It works fine for a while and then just pops up. Debugger selects the line ".Pattern = xSolid" . I have tried both ways using "xSolid" and "x1Solid" with the same result. The lines following 'With Selection.Interior" are common to all of my control button macros.

Any ideas? Or is this another of those pesky Excel Glitches?
As always I am very appreciative of the advice I get from this group.

Dragman