Obrigado Prudencio... Cheguei na solução!!! Sub aberturaPT() linha = 2 Do Until Sheets("BDPT").Cells(linha, 1) = "" linha = li...

Esqueci de mencionar que esse TxtcbAltura é uma check box, eu quero que toda vez que selecionar ela vai a palavra sim para o meu banco de dados!!!