Private Sub OptionButton1_Click()Worksheets(1).ActivateEnd SubPrivate Sub OptionButton2_Click()Worksheets(2).ActivateEnd Sub