gustavomm,

Boa tarde!

Por gentileza, anexe seu arquivo aqui no fórum, compactado com .ZIP.

Olá, não consegui anexar o arquivo, diz que este é muito grande.
Fiz o upload dele no 4shared, segue !
https://www.4shared.com/file/QwbS_adwca/proposta.html
Muito obrigado pela resposta

Galera, consegui o que queria, mas mais ou menos.

Usei o seguinte code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If CheckBox8.Value = True Then Range("w71") = Range("O71").Value / 2
End Sub

O que eu queria como objetivo final, era que acionar um checkbox e a celula W71 recebecesse o valor de o71/2, o code esta fazendo o que desejo, porem me aparece o seguinte erro:

ERRO EM TEMPO DE EXECUÇÃO "-2147417847(80010108)'
O METODO "_DEFAUT" DO OBJETO "RANGE" FALHOU

e o excel fecha. O que estou fazendo de errado ?

Será que é isso?

Private Sub Worksheet_Change(ByVal Target As Range)
    If CheckBox8.Value = True Then 
    Range("w71").Value = Range("O71").Value / 2
    End If
End Sub

Acontece o mesmo problema usando esse code que vc passou xlaruda, ele faz o que inicialmente preciso, porem o excel fecha !

Não conheço esse erro mas , parece estar relacionado à Userforms

https://social.msdn.microsoft.com/Forums/pt-BR/40ea7c09-7e6d-4efe-bd19-53f233f4a011/erro-em-tempo-de-execuo-2147417848-80010108-erro-de-automao-o-objeto-chamado-foi?forum=vbapt

Massa ! Eu não estou usando USERFORM, a planilha de cadastro é gerada em planilhas mesm, ela so repassa a informação de uma para outra !

Private Sub CheckBox8_Change()
If CheckBox8.Value = True Then
    Range("w71").Value = Range("O71").Value / 2
    End If
End Sub