Erro bloco if sem end if

Boa noite

De acordo com o copilador meu bloco de if else esta em end if, porém esta correto testei o código de vocês copiando e colando e quando pedi para rodar deu o mesmo erro. Podem verificar ? Colocar else if tambem da erro de instrução. Abaixo meu codigo

Sub cadastro() Range("a1").Value = "Nome do aluno" Range("b1").Value = "Estado" Range("c1").Value = "Sigla do estado"

Range("a105555").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.Offset.Value = InputBox("Digite o nome do aluno") ActiveCell.Offset(0, 2) = InputBox("Digite a sigla do estado") If UCase(ActiveCell.Offset(0, 2)) = "RJ" Then ActiveCell.Offset(0, 1) = "Rio de janeito" If UCase(ActiveCell.Offset(0, 2)) = "TO" Then ActiveCell.Offset(0, 1) = "Tocantins" If UCase(ActiveCell.Offset(0, 2)) = "SP" Then ActiveCell.Offset(0, 1) = "São Paulo" Else MsgBox "Escolher siglas RJ, TO e SP" End If End Sub