OptionButton Submit Error

[Frankinstyyn]

Hi Guys,

I'm getting an error with the code below.

All I want is whatever option a user picks, "Good" "Neutral" or "Negative" to be moved to Sheet1 A B and C columns when the user presses submit.

Appreciate your help and I've attached the spreadsheet as well.

Thanks in advance

Frank!

Private Sub CommandButton1_Click()

Dim emptyRow As Long

'Make Sheet1 active
Sheet1.Activate

If optGood.Value = True Then
    Cells(emptyRow, 1).Value = "Good"
If optNeutral.Value = True Then
    Cells(emptyRow, 2).Value = "Neutral"
If optNegative.Value = True Then
    Cells(emptyRow, 3).Value = "Negative"
End Sub