error 438 en visual basic

hola

espero pueda ayudarme tengo este problema

tengo una macro ke esta asignada a un option button en una hoja de
excel ke permite poner texto en otra hoja al dar click en el option
button esta operacion la hice con otros option button y funciona
perfectamente solo ke al agregarle mas option button cuando doy click
en ellos me manda en siguiente error

Se ha producido el error '438' en tiempo de ejecución:

El objeto no admite esta propiedad o método

ya compare el codigo kon el codigo de los option button ke si
funcionan y no se como reparar el problema pues el codigo esta bien.
espero puedan ayudarme se los agradecere infinitamente

el pequeño codigo es este

Sub Residente()

'Residente

Dim valor
If ActiveSheet.Shapes("Option Button 36").Value = xlOn Then
valor = "1"
Sheets(2).Cells(4, 10) = valor
End If
End Sub