Obrigado Edcronos, funcionou perfeitamente.

Colei o código informado e rodei a macro, porém está ocorrendo o seguinte erro: Erro '438', o objeto não aceita esta propriedade ou método. Mais preci...