Dei uma olhada rápida.
Experimente colocar um "ponto" ao chamar os textbox do formulário lá na Sub InserirPasciente()
Onde estava:
Sheets("Cadastro").Cells(iTotalLinhas, 2).Value = EstabelicimentoSaude
deixe:
Sheets("Cadastro").Cells(iTotalLinhas, 2).Value = .EstabelicimentoSaude
Faça o mesmo com os outros textbox, e veja se deu algum resultado.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 15/10/2014 6:02 pm