change the color of commandbuttons vba

Hi everyone,

I would like to Change the Color of all commandButtons in a sheet.

Sub test()


 For Each cnt In ActiveSheet.OLEObjects
        cnt.BackColor = 500
    Next


End Sub

failure code : 438

Thank you for your Help