Sub OptButtCheck() Dim tf As Boolean If (ActiveSheet.OptionButtons("OptionButton_A").Value = 1) Then Range("B5:B12").Value = Range("P3:P10").Value ElseIf (ActiveSheet.OptionButtons("OptionButton_B").Value = 1) Then Range("B5:B12").Value = Range("Q3:Q10").Value ElseIf (ActiveSheet.OptionButtons("OptionButton_C").Value = 1) Then Range("B5:B12").Value = Range("R3:R10").Value ElseIf (ActiveSheet.OptionButtons("OptionButton_D").Value = 1) Then Range("B5:B12").Value = Range("S3:S10").Value End If End Sub