Se em formulário, experimente algo assim:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then range("E1").value="SIM"
End Sub

Reinaldo, como posso adaptar ao a esse código??

Private Sub btninserir_Click()
Dim UltimaLinha As Object

Set UltimaLinha = Plan1.Range("A300").End(xlUp)

UltimaLinha.Offset(1, 0).Value = txtNomeEmpresa.Text
UltimaLinha.Offset(1, 1).Value = txtNomeContato.Text
UltimaLinha.Offset(1, 2).Value = txtCargoContato.Text
UltimaLinha.Offset(1, 3).Value = txtEndereco.Text
UltimaLinha.Offset(1, 4).Value = txtCidade.Text
UltimaLinha.Offset(1, 5).Value = txtRegiao.Text
UltimaLinha.Offset(1, 6).Value = txtCEP.Text
UltimaLinha.Offset(1, 7).Value = txtPais.Text
UltimaLinha.Offset(1, 8).Value = txtTelefone.Text
UltimaLinha.Offset(1, 9).Value = txtFax.Text
UltimaLinha.Offset(1, 10).Value = txtHomePage.Text
UltimaLinha.Offset(1, 12).Value = txtmotivo.Text

MsgBox "Item inserido com sucesso..."

txtNomeEmpresa.Text = ""
txtNomeContato.Text = ""
txtCargoContato.Text = ""
txtEndereco.Text = ""
txtCidade.Text = ""
txtRegiao.Text = ""
txtCEP.Text = ""
txtPais.Text = ""
txtTelefone.Text = ""
txtFax.Text = ""
txtHomePage = ""
txtmotivo = ""

With txtCodigoFornecedor
.SetFocus
.SelStart = 0
.SelLength = Len(txtCodigoFornecedor.Text)

End With

End Sub

Não percebi checkbox ai.

Veja se é isso?

If Me.CheckBox1.Value = True Then UltimaLinha.Offset(1, 4).Value = "SIM" Else UltimaLinha.Offset(1, 4).Value = "NÂO"

Exatamente isso... Obrigado Jose