Pessoal, boa noite!!!!

Fiz um form de cadastramento, e nesse form criei duas Multipages. Os dados incluidos em cada multipage, são salvos em uma planilha correspondente, exemplo:

1 - Criei uma multipage para cadastrar solicitações de onibus, e outra para solicitação de passarela.
2 - Quando os dados sao inseridos, dependendo da multipage, eles são salvos na planilha onibus, ou na planilha passarela.

Estou com um problema:

Criei para cada multipage 2 botoes chamados, "Anterior" e "Proximo".
Quando vou utilizar os botoes, eles me apresentam os dados da celula ativa, ou seja, se estou com o form aberto na parte dos onibus e planilha aberta for a de passarela, ao clicar no botao proximo ou anterior, ele me apresenta as informações da passarela, e nao dos onibus. Como consigo corrigir isso????

Outro problema: Quando esses dados aparecem, a texbox hora aparece uma dizima nao periodica e nao a hora salva no campo hora da planilha.

Nao sei se conseguiram captar a ideia, mas vou colocar o codigo correspondente aos botoes.

ActiveCell.Offset(-1, 0).Select

If ActiveCell = "SOLICITANTE" Then
ActiveCell.Offset(1, 0).Select

CarregaDadosOnibus
MsgBox "Voce está no primeiro registro", vbInformation, "Cadastramento"
Else
CarregaDadosOnibus
End If
End Sub

Private Sub btnAnterior2_Click()

ActiveCell.Offset(-1, 0).Select

If ActiveCell = "EMPRESA (ICAO)" Then
ActiveCell.Offset(1, 0).Select

CarregaDadosPassarela
MsgBox "Voce está no primeiro registro", vbInformation, "Cadastramento"
Else
CarregaDadosPassarela
End If

End Sub

Esse é o codigo refente ao comando "carregadadospassarela" e o "carregadadosonibus":

Public Sub CarregaDadosOnibus()

TextSolicitante.Text = ActiveCell.Offset(0, 0).Value
TextHora.Value = ActiveCell.Offset(0, 1).Value
CmbEA2.Text = ActiveCell.Offset(0, 2).Value
TextNVoo.Text = ActiveCell.Offset(0, 3).Value
TextPrefixo.Text = ActiveCell.Offset(0, 4).Value
CmbTipoVoo.Text = ActiveCell.Offset(0, 5).Value
TextNPax.Text = ActiveCell.Offset(0, 6).Value
CmbPortao.Text = ActiveCell.Offset(0, 7).Value
CmbMov.Text = ActiveCell.Offset(0, 8).Value
CmbPos.Text = ActiveCell.Offset(0, 9).Value
CmbOnibus.Text = ActiveCell.Offset(0, 10).Value
CmbPnae.Text = ActiveCell.Offset(0, 11).Value
CmbAmbu.Text = ActiveCell.Offset(0, 12).Value
TextObs.Text = ActiveCell.Offset(0, 13).Value

End Sub

Public Sub CarregaDadosPassarela()

CmbEA.Text = ActiveCell.Offset(0, 0).Value
TextNVoo2.Value = ActiveCell.Offset(0, 1).Value
CmbPosição.Text = ActiveCell.Offset(0, 2).Value
TextHora2.Text = ActiveCell.Offset(0, 3).Value
TextSol.Text = ActiveCell.Offset(0, 4).Value
TextHrOp.Text = ActiveCell.Offset(0, 5).Value
TextSetor.Text = ActiveCell.Offset(0, 6).Value
CmbOperador.Text = ActiveCell.Offset(0, 7).Value
TextObs2.Text = ActiveCell.Offset(0, 8).Value

End Sub

Me ajudem.

Abraços.