Elseif issue

[erutherford]

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>

 

[Fluff]

What error do you get?

 

[erutherford]

Method "goto of object" application failed

 

[erutherford]

If I use this code it functions fine, but I would like to know what rule I broke with the above code.

<code>
ThisWorkbook.Sheets("Scores").Activate
</code>

 

[Fluff]

Is the "Scores" sheet protected?

 

[erutherford]

yes!

 

[Fluff]

Then you either have to unprotect it, select as unlocked cell, or use a different method.