.DrawingObjects.Interior.Color =

Dim ButtonName$
Dim ButtonColor&

Sub repair_color()
    ' так как переменные ButtonName и ButtonColor хранятся только пока книга открыта, то
    ' данный макрос нужно поставить на какое-то событие книги, что бы не "потерять" заливку кнопки
    ' например на сохранение Workbook_BeforeSave
    If ButtonColor <> 0 Then Application.ActiveCell.Worksheet.DrawingObjects(ButtonName).Interior.Color = ButtonColor
End Sub
Sub PressButton()
    Call repair_color
    With Application.ActiveCell.Worksheet.DrawingObjects(Application.Caller)
      'присваиваем новые значения переменным
      ButtonColor = .Interior.Color
      ButtonName = .Name
      'красим в красный
      .Interior.Color = 255
    End With
End Sub