LIMPAR ASPA SIMPLES QUE FICA AO INSERIR DATA

Boa noite,

quero limpar a aspa simples que fica ao inserir data, estou usando o codigo abaixo,
mais ao inserir dados me retorna o erro: (metodo ranger do objeto' worksheet falhou)

estou usando o codigo abaixo, mais a primeirr]a linha do codigo fica amarela

Onde esta o erro ou qual o codigo correto para este procedimento?

agradeço a ajuda.



Dim cel As Range

For Each cel In Plan2.Range(Cells(2, 10), Cells(65536, 10).End(xlUp))
cel = Application.Clean(cel)
Next cel

For Each cel In Plan2.Range(Cells(2, 11), Cells(65536, 11).End(xlUp))
cel = Application.Clean(cel)
Next cel
For Each cel In Plan2.Range(Cells(2, 12), Cells(65536, 12).End(xlUp))
cel = Application.Clean(cel)
Next cel


BANCO.Close


MsgBox "REGISTRO EFETUADO COM SUCESSO"

Boa tarde!!

Disponibilize seu arquivo..por favor

Att..