run time error 380 Hatası

[Ch333]

Kolay gelsin Arkadaşlar

Excel deExpert diye butona tıkladığımda " run time error 380 could not set the value property invalid property value " diye hata veriyor. Diğer butonları hallettim hücre numaraları kaymıştı fakat Expert butonunu halledemedim. Kodunu aşağıda paylaşıyorum.

Private Sub explevha_Click()
If explevha.Visible = True Then

Image1.Visible = True
explevha.BackColor = &H8000000D
levha.BackColor = &HC0C0C0

ComboBox1.ListFillRange = ""
ComboBox1.Value = ""

OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False

OptionButton4.Visible = True
OptionButton5.Visible = True
OptionButton6.Visible = True
OptionButton7.Visible = True
OptionButton8.Visible = True

OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = True
OptionButton7.Value = False
OptionButton8.Value = False

ComboBox1.Value = ""
End If
ComboBox1.Value = "Expert Karbonlu EPS Isı Yalıtım Levhası 5 cm"


End Sub

 

[YUSUF44]

Elemanın değeri o eleman için uygun olmayan bir şey ayarlanmaya çalışılmış gibi anladım. Örneğin sadece rakam alabilecek değerin harf alması, hiç olmayan bir rengin ayarlanması gibi.