fabiola teixeira

Bom dia, tentei usar mar está dando erro Rows(A).Delete O depurador para aqui. adicionado 0 minutos depois

Olá. Atualmente trabalho com planilhas com 2000 linhas e quando necessito excluir um cadastro utilizo o código abaixo, o problema e que cada exclusão irá usar esse código 3 vezes pois o item está cadastrado em 3 planilhas distintas e isso está demorando muito. Gostaria de sugestões onde esse processo ficasse um pouco mais rápido. Sub excluir_registro_ativo() ' ' excluir_registro_ativo Macro ' Range("bz27").Select Dim nome nome = ActiveCell.Value Sheets("REGISTRO ATIVOS").Select Dim Intervalo As Range Dim Célula As Range Set Intervalo = [a6:a2006] For Each Célula In Intervalo If Célula = nome Then Célula.EntireRow.Delete Else End If Next Célula End Sub