“VBA Obtenha status de caixa de seleção da planilha” Respostas de código

VBA Obtenha status de caixa de seleção da planilha

Sub Button167_Click()
 If ThisWorkbook.Worksheets(1).Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
 Range("Y12").Value = 1
 Else
 Range("Y12").Value = 0
 End If
End Sub