Here is the code I am goin to try. Is this correct?
Private Sub RunModel1_Click()
ModelSelect.Hide
If ModelSelect.OptionCAM.Value Then
Call CAMModel
End If
If ModelSelect.OptionMGR.Value Then
Call MGRModel
End If
If ModelSelect.OptionDIR.Value Then
Call DIRModel
End If
End Sub