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...