erutherford
Active Member
- Joined
- Dec 19, 2016
- Messages
- 453
Not sure why this gets an error. It seems pretty simple.
Error occurs at the ElseIf "Application.GoTo ActiveWorkbook.Sheets("Scores").Cells(3, 1)" line
I replaced it with the App GoTo line above and if functions as it should, so its not liking the "Scores" name. Spelling correct, same workbook etc.
ideas???
<code>
Private Sub CommandButton1_Click() ' Main Page
If OBEntry.Value = True Then
Unload UserForm11
Application.GoTo ActiveWorkbook.Sheets("Entries").Cells(3, 1)
ElseIf OBScoring.Value = True Then
Unload UserForm11
Application.GoTo ActiveWorkbook.Sheets("Scores").Cells(3, 1)
Else
Unload UserForm11
UserForm12.Show
End If
End Sub
</code>
Error occurs at the ElseIf "Application.GoTo ActiveWorkbook.Sheets("Scores").Cells(3, 1)" line
I replaced it with the App GoTo line above and if functions as it should, so its not liking the "Scores" name. Spelling correct, same workbook etc.
ideas???
<code>
Private Sub CommandButton1_Click() ' Main Page
If OBEntry.Value = True Then
Unload UserForm11
Application.GoTo ActiveWorkbook.Sheets("Entries").Cells(3, 1)
ElseIf OBScoring.Value = True Then
Unload UserForm11
Application.GoTo ActiveWorkbook.Sheets("Scores").Cells(3, 1)
Else
Unload UserForm11
UserForm12.Show
End If
End Sub
</code>