There a couple of ways to achieve this.
Here's an example of the one you asked for:
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
<SPAN style="color:#00007F">If</SPAN> OptionButton1 <SPAN style="color:#00007F">Then</SPAN>
Sheets("Sheet 112").Select
<SPAN style="color:#00007F">ElseIf</SPAN> OptionButton2 <SPAN style="color:#00007F">Then</SPAN>
Sheets("Sheet 113").Select
<SPAN style="color:#00007F">ElseIf</SPAN> OptionButton3 <SPAN style="color:#00007F">Then</SPAN>
Sheets("Sheet 114").Select
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
However, you may not need the commandButton for this at all (depending on what all you're doing I guess).
You can simply assign the code to each of the optionbuttons themselves. (ie.)
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton1_Click()
Sheets("Sheet 112").Select
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton2_Click()
Sheets("Sheet 113").Select
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton3_Click()
Sheets("Sheet 114").Select
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
One of these should be what you need.
Hope it helps,
Dan