optionbutton with worksheet change

Hi guys

I have a work sheet with 2 input cells (for sizes) and about 6 optionbuttons in pairs i am using the code (see below) but the problem i have is that for the worksheet change event to work you need to input into the cell (and this cell is writen in the code) and press return for the change event to work but in D11 i have this formula
=IF(D8="mm",D9,IF(D8="in",D9*25.4)) mm for millmeters and in for inches. Is there any way to change the code to make the code work with D11 even if the iput cell is in fact D9

Many thanks

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D11")) Is Nothing Then Exit Sub
Dim check As Boolean
check = Range("D11") > 6500

With OptionButton10
.Enabled = check
.Value = check
End With

With OptionButton9
.Value = Not check
End With

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


Private Sub OptionButton10_Click()
If Sheets("b28pricing").Range("D11") < 6499 Then
OptionButton10.Enabled = True
OptionButton10.Value = True
OptionButton9.Value = False
Else
OptionButton10.Enabled = False
End If

Many thanks

If Intersect(Target, Range("D9,D11")) Is Nothing Then Exit Sub


--
Regards,
Tom Ogilvy


"raw" <[email protected]> wrote in message
news:[email protected]...
>
> Hi guys
>
> I have a work sheet with 2 input cells (for sizes) and about 6
> optionbuttons in pairs i am using the code (see below) but the problem
> i have is that for the worksheet change event to work you need to input
> into the cell (and this cell is writen in the code) and press return for
> the change event to work but in D11 i have this formula
> =IF(D8="mm",D9,IF(D8="in",D9*25.4)) mm for millmeters and in for
> inches. Is there any way to change the code to make the code work with
> D11 even if the iput cell is in fact D9
>
> Many thanks
>
> Option Explicit
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Intersect(Target, Range("D11")) Is Nothing Then Exit Sub
> Dim check As Boolean
> check = Range("D11") > 6500
>
> With OptionButton10
> Enabled = check
> Value = check
> End With
>
> With OptionButton9
> Value = Not check
> End With
>
> End Sub
> Private Sub OptionButton9_Click()
> If Sheets("b28pricing").Range("D11") > 6500 Then
> OptionButton10.Enabled = False
> OptionButton10.Value = False
> OptionButton9.Value = True
> Else
> OptionButton10.Enabled = True
> End If
>
>
> Private Sub OptionButton10_Click()
> If Sheets("b28pricing").Range("D11") < 6499 Then
> OptionButton10.Enabled = True
> OptionButton10.Value = True
> OptionButton9.Value = False
> Else
> OptionButton10.Enabled = False
> End If
>
> Many thanks
>
>
> --
> raw
> ------------------------------------------------------------------------
> raw's Profile:
http://www.excelforum.com/member.php...o&userid=28312
> View this thread: http://www.excelforum.com/showthread...hreadid=523868
>