Copy/paste via ActiveX optionbuttons in a frame

[WildEep]

My main Excel sheet contains a frame 'Optionbuttonframe', which contains 8 ActiveX optionbuttons (I'm doing that because I need the formatting features), alongside an empty block of cells I've merged and named 'Statementlocation'. I've given all the buttons the groupname 'country' in case it helps. On another sheet ('Statements'), there are cells A1:A8 listing 8 corresponding blocks of text, one of which is to be copied (value only, not format) into 'Statementlocation' depending on the selection of OptionButton1 to OptionButton8 on the frame on the main sheet.

What code do I need to make this happen, I can't seem to get Sub OptionButtonx_Click() procedures to do anything?

I'm pretty inexperienced with this stuff. I think it's to do with referencing things correctly, because if I put easy 'Hello World' commands in the procedures and step through them in the VBA editor, they work.

Also, I'm a bit worried about the paste method, because when I manually try to step throught what I want, the fact that I'm pasting one cell into a merged area triggers an error message (which my macro would also presumably encounter).

Hope someone can help!

WE

 

[Worf]

Hello and welcome to the Board

What Excel version are you using?
See if the following code is what you need. If not, just post back.

Option Explicit


Private Sub OptionButton1_Click()

ActiveSheet.Range("StatementLocation").Value = _
Worksheets("Statements").Range("a1").Value


End Sub


Private Sub OptionButton2_Click()

ActiveSheet.Range("StatementLocation").Value = _
Worksheets("Statements").Range("a2").Value


End Sub