Simplified Code
 

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

Simplified Code
 

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

Simplified Code
 

On Aug 26, 11:41*am, NOPIK wrote:
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?

Simplified Code
 

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


"Keith" wrote in message
...
On Aug 26, 11:41 am, NOPIK wrote:
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?

Simplified Code
 

On Aug 26, 2:53*pm, "Gary Keramidas" <GKeramidasATmsn.com wrote:
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