Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then
MsgBox  1 
Exit Sub
End If

If OptionButton2.Value = True Then
MsgBox  2 
Exit Sub
End If

If OptionButton3.Value = True Then
MsgBox  3 
Exit Sub
End If

End Sub

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then one: Exit Sub
If OptionButton2.Value = True Then two: Exit Sub
If OptionButton3.Value = True Then three: Exit Sub

End Sub

Sub one()
MsgBox  1 
End Sub

Sub two()
MsgBox  2 
End Sub

Sub three()
MsgBox  3 
End Sub

Sub Test()

On Error GoTo errorhandler ' стандартная обработка ошибок

On Error Resume Next ' временная обработка ошибок
Set shttest = Sheets("Расчет")
If shttest Is Nothing Then
Sheets.Add().Name = "Расчет"
End If

On Error GoTo errorhandler ' возвращаем стандартную обработку ошибок

Exit Sub

errorhandler:
MsgBox "Ошибка!"
Exit Sub

End Sub

Sub Test2()

shtest =  0 
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Расчет" Then shtest =  1 
Next
If shtest =  0  Then Sheets.Add().Name = "Расчет"

End Sub