VBA Select Case - Expression too complex?

[Big Lar]

I get "Expression too complex" when attempting this:
Suggestions/remedy greatly appreciated.

Select Case Val(ws.Cells(iRow, 18).Value)
            Case Is <= Val(Sheets("Settings").[A90]): OptionButton1 = True
            Case Is > Val(Sheets("Settings").[A93]): OtionButton4 = True 
            Case Is >= Val(Sheets("Settings").[A92]): OptionButton3 = True 
            Case Is >= Val(Sheets("Settings").[A91]): OptionButton2 = True 
 
End Select

 

[shg]

  Select Case True
    Case Val(ws.Cells(iRow, 18).Value) <= Val(Sheets("Settings").[A90]): OptionButton1 = True
    Case ...

 

[PCL]

Try

    T1 = Sheets("Settings").[A90].Value
    Select Case Val(Ws.Cells(iRow, 18).Value)
    
                Case Is <= Val(T1): Ws.OptionButton1 = True

 

[dmt32]

untested but an alternative way maybe

Dim wsSettings As Worksheet


    Set wsSettings = Sheets("Settings")


    With ws.Cells(IRow, 18)
            OptionButton1.Value = CBool(Val(.Value) <= Val(wsSettings.[A93]))
            OptionButton2.Value = CBool(Val(.Value) >= Val(wsSettings.[A91]))
            OptionButton3.Value = CBool(Val(.Value) >= Val(wsSettings.[A92]))
            OptionButton4.Value = CBool(Val(.Value) > Val(wsSettings.[A93]))
    End With

Dave

 

[Big Lar]

Thank for the tips, y'all.
Looks like I've got several solutions.