Você não precisa realmente ler o valor do marcador. Você pode atribuir os rótulos aos botões de opção e alterar o valor da opção selecionada dessa maneira.
Você pode chamar isso no Worksheet_SelectionChange
Sub reflectCell()
Dim targetedCell As String
targetedCell = Range("A1").Text
Select Case UCase(targetedCell)
Case "RED"
ActiveSheet.OptionButton1.Value = True
Case "BLUE"
ActiveSheet.OptionButton2.Value = True
Case "GREEN"
ActiveSheet.OptionButton3.Value = True
End Select
End Sub
A menos que você queira dizer que o rótulo é um valor de célula adjacente ao OptionButton A célula de destino é um local de intervalo estático ou o ActiveCell atual?
Se a célula de destino for sempre a mesma localização, você poderá controlar a ortografia de entrada dessa maneira.
Aquiestáoutraabordagemmaissimples
Umasoluçãonãomacroquefuncionasevocêpuderusarfórmulasnaplanilhaémostradanestacapturadetela
Nomeie cada botão de opção igual ao rótulo na coluna A Ter sua célula ligada ser outra célula (que podem ser exemplos ocultos em E são as fórmulas mostrando em F) nessa célula que comparam a entrada que você fornece para cada rótulo de célula. Apenas um deve acabar sendo VERDADEIRO (veja exemplos de fórmulas)
Assim, a opção em B2 está vinculada a E2, B3 está vinculada a E3, B7 está vinculada a E7 etc. Se você é permitido a coluna extra com fórmulas (e eles podem estar em qualquer lugar) isso é muito mais simples do que usar o vba