Não utilize o UsedRange. Experimente : inscricoes =Worksheets("PALESTRAS").Cells(Cells.Rows.Count, "A").End(xlUp).Row ' Altere &qu...

Srobes, Apesar de não ter utilizado sua resposta para este problema, consegui usar em outra situação até então sem solução, agradeço o esforço em me ...