Excel Mudar valor de célula com VBA

[DFRANKLEY]

Pessoal,

 

sou novo na programação VBA, mas tenho urgência para entregar um projeto.

 

Preciso de uma programação que faça com que toda vez que o valor da célula selecionada for 0 passe a ser 1 e vice versa.

 

Quero criar um botão para essa célula, de forma que quando eu aperte esse botão ele altere o valor da célula.

 

Isso é possível?

[CasaDoHardware]

Se eu entendi isso atende

 

Sub Altera0e1()

If ActiveCell.Value = 1 Then
ActiveCell.Value = 0
Else
ActiveCell.Value = 1
End If

End Sub