delete lentisimo

Buenas, Tengo una tabla con 600.000 registros, y cuando hago un delete: delete * from tabla where idPais=X parece que no es nada complicado pero... tarda minutos y minutos en ejecutar dicha consulta alguna idea? Saludos Xus

Hola grupo, Tengo el siguiente código en el que se chequea el valor de una celda y si es diferente de 0 elimina la fila siguiente: Range("AI2").Activate rep: If ActiveCell.Value = 0 Then ActiveCell.Offset(1, 0).Select Else ...