Hi guys,

I have created a sheet that is using option buttons to select a cell of data and input it onto another sheet for a type of scorecard. However, the sheet is over 5000+ records for our group to choose from. I was wondering if anyone knew a short way I could copy down the code below so that it would easily populate the next value? That being, Optionbutton1 would turn into Optionbutton2 and Range("B1") would turn into Range("B2") and so forth all the way down for each option button. Seeing as writing this all out seems too tedious.

Private Sub OptionsButton1_Click()
If OptionButton1.value = True Then
Sheets("ScoreCard").Range("A1") = Sheets("Data").Range("B1")
End If
End Sub
Or possibly a solution that would better but has to be as user friendly as possible.

Regards,

Bob