Nota para rudypopi:
Una vez cerrada la pregunta yo no puedo añadir respuestas.
Respecto al problema que me planteas, lo único que tienes que hacer es añadir las siguientes líneas de código al principio del procedimiento (es decir, justo despues de Private Sub ...)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Saludos.
Respecto al problema que me planteas, lo único que tienes que hacer es añadir las siguientes líneas de código al principio del procedimiento (es decir, justo despues de Private Sub ...)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Saludos.
