Tony_Tomba

Olá a todos, Estou criando um formulário cadastral de clientes, para que o mesmo possa preencher e me enviar. Em certo ponto criei um CheckBox, que ao ser marcado Copia o Endereço de correspondência e Cola em outro campo para ser usado como Endereço de Cobrança. Caso seja desmarcado não é necessário fazer nada. Porém quanto é marcada novamente, o Excel exibe "Já existem dados aqui. Deseja substituí-los?", caso clique Sim, a macro roda normalmente, mas dá erro no caso da pessoa clicar Não. Abaixo segue a macro Private Sub CheckBox1_Click() ' Copia as informações Endereço de Correspondencia If CheckBox1.Value = True Then Range("A19:I19").Select ' primeira linha de endereço Selection.Copy Range("A24:E24").Select ActiveSheet.Paste Range("A21:I21").Select ' segunda linha de endereço Application.CutCopyMode = False Selection.Copy Range("A26:C26").Select ActiveSheet.Paste Application.CutCopyMode = False Else CheckBox1.Value = False End If End Sub Como posso corrigir? Alguma ajuda. Agradeço