CheckBox value hücreye yanlış yazılıyor

[osman1309]

Arkadaşlar checkbox ı tıklayınca value değierini hücreye true e veya false diye yazmasını istiyorum fakat doğru veya yanlış diye yazıyor bunu nasıl düzelte bilirim
excel hücresine yazdırdığım değeri forma yüklenirken tekrar kullanacağımdan lazım


Private Sub CheckBox1_Click()
Sheets(1).Range("ax8") = CheckBox1.Value
End Sub

Private Sub UserForm_Activate()
mail.CheckBox1.Value = Sheets(1).Range("ax8")
end sub

hücreye doğru veya yanlış yazdığından dolayı o hücredeki değeri tekrar chackbox a atayamıyorum... if end ile yapılır fakat başka yolu yokmu if end uzun sürüyor

 

[hamitcan]

Private Sub CheckBox1_Click()
If CheckBox1 Then
Sheets(1).Range("ax8") = "'True"
Else
Sheets(1).Range("ax8") = "'False"
End If
End Sub