Simplified Code

[Keith]

My macro skills are mediocre at best so can anyone help me simplify
this code? Any help would be appreciated. Thanks.

Private Sub OptionButton2_Click()
Application.ScreenUpdating = False
Sheets("READY MIX - LF").Select
Sheets("READY MIX - LF").Range("C13").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C14").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C15").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C16").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C17").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("F13").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F14").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F15").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F16").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F17").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"

End Sub

 

[NOPIK]

Private Sub OptionButton2_Click()
Union(Sheets("READY MIX - LF").Range("C13:C17"), Sheets("READY MIX -
LF").Range("F13:F17")).FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
End Sub

 

[Keith]

Private Sub OptionButton2_Click()
 Union(Sheets("READY MIX - LF").Range("C13:C17"), Sheets("READY MIX -
LF").Range("F13:F17")).FormulaR1C1 = _
        "='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
End Sub

Thanks for the reply. I'm getting a syntax error when i try and run
it. Any thoughts?

 

[Gary Keramidas]

i think you're getting a syntax error because of this:
READY MIX - LF
make sure occurrences both have spaces before and after the "-"

--


Gary

Private Sub OptionButton2_Click()
Union(Sheets("READY MIX - LF").Range("C13:C17"), Sheets("READY MIX -
LF").Range("F13:F17")).FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
End Sub

Thanks for the reply. I'm getting a syntax error when i try and run
it. Any thoughts?

 

[Keith]

i think you're getting a syntax error because of this:
READY MIX - LF
make sure occurrences both have spaces before and after the "-"

--

Gary

I got it to work. Gary...you were correct...that was my problem. Thanks to NOPIK as well.

Keith