A minor typo:
I had meant the last range to be A9:C11 so that there's a gap between it and
the preceeding table. Type the Ut values into it instead. Code should be:

Case Ut
r.Value = ws1.Range("A9:C11").Value


Regards,
Greg

"Greg Wilson" wrote:

Where Sheets("Settings") is a hidden sheet used to store the table values.
The values Co, Std and Ut are assumed to be constants or variables and not
text values contained in cell I8.

To test, name a sheet "Settings" and type the table values respectively into
ranges A1:C3, A5:C7, A8:C10 of this sheet. It is assumed that the worksheet
you refer to is named "Main". Change the name in the code to suit.

Dim ws1 As Worksheet, ws2 As Worksheet
Dim r As Range
Dim Co, Std, Ut

Set ws1 = Sheets("Settings")
Set ws2 = Sheets("Main")
Set r = ws2.Range("C12:E14")

Select Case ws2.Range("I8").Value
Case Co
r.Value = ws1.Range("A1:C3").Value
Case Std
r.Value = ws1.Range("A5:C7").Value
Case Ut
r.Value = ws1.Range("A8:C10").Value
Case Else
r.Value = "N/A"
End Select

Regards,
Greg


"Ed517" wrote:

I'm writing a code but seems too long for me.
Is there a way to shorten it out? Partial of code is written below.
Thank you very much and any input would be greatly appreciated.

Private Sub GetSawn201Prop()

If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("C12") = "675"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("C13") = "300"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("C14") = "135"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("E12") = "350"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("E13") = "1050"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Co Then
Range("E14") = "1.000000"

If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("C12") = "375"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("C13") = "175"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("C14") = "135"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("E12") = "350"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("E13") = "850"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Std Then
Range("E14") = ".900000"

If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("C12") = "175"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("C13") = "75"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("C14") = "135"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("E12") = "350"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("E13") = "550"
If Range("F8") = TF And Range("I7") = EWP And Range("I8") = Ut Then
Range("E14") = ".800000"

End Sub


Ed517