option button disabled

[raw]

Hi
I have used the code below to try and disable the option button but get
a debug error with the first line can you help

Private Sub OptionButton9_Click()
If Sheets("b28pricing!D11") > 5000 Then
OptionButton10.Enabled = False
OptionButton10.Value = False
OptionButton9.Value = True
End If

5000 means in the cell (5000mm) but only the number is put in without
the mm part


Thanks

 

[Guest]

If Sheets("b28pricing").Range("D11") > 5000 Then