Boa Tarde,

estou tentando importar dados para varias textbox atraves de um codigo que estabeleci para cada linha em uma planilha.
O que acontece e que a macro pula a parte em negrito e nao importa os dados para as textbox quando eu rodo a macro. Se alguem puder ajuadar eu agradeco.

Private Sub LstObras_AfterUpdate()
Dim s As Worksheet
Set s = Sheets("BASE_CADASTRO")
s.Select
Range("A2").Select
Do While ActiveCell <> ""
If s.Cells(ActiveCell.Row, 1) = Me.LstObras Then

Me.num_mes = s.Cells(ActiveCell.Row, 2)
Me.txtdescricao = s.Cells(ActiveCell.Row, 3)
Me.num_obra = s.Cells(ActiveCell.Row, 4)
Me.data_inicio = s.Cells(ActiveCell.Row, 5)
Me.data_concl = s.Cells(ActiveCell.Row, 6)

Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub