Erro na posição do Estado

Prezados,

Detectei um erro na linha que informa o estado:

ActiveCell.Offset(0, 2) = InputBox("Informe a sigla do Estado")

E no select case

Select Case UCase(ActiveCell.Offset(0, 2))

Deste jeito ele estava preenchendo a coluna C e não B conforme desejado.

Alterei o código conforme abaixo

Sub Cadastrar2()
    Range("a1048576").End(xlUp).Offset(1, 0).Select
    ActiveCell = InputBox("Digite o nome do aluno")
    ActiveCell.Offset(0, 1) = InputBox("Informe a sigla do Estado")
    Select Case UCase(ActiveCell.Offset(0, 1))
    Case Is = "RJ"
        ActiveCell.Offset(0, 1) = "Rio de Janeiro"
    Case Is = "SP"
    ActiveCell.Offset(0, 1) = "São Paulo"
    Case Is = "MG"
        ActiveCell.Offset(0, 1) = "Minas Gerais"
    Case Is = "TO"
        ActiveCell.Offset(0, 1) = "Tocantins"
    Case Else
        MsgBox "Sigla Inválida"
        ActiveCell.ClearContents
        ActiveCell.Offset(0, 2).ClearContents
    End Select
End Sub