Luis Mondelo respondió:
Te mando mi solución con ese ejemplo: -Escribe en A1 la palabra casa -Escribe en A2 la palabra coche -Después ejecuta esta macro Sub proceso() 'por luismondelo Range("a1").Select Do While ActiveCell.Value <> "" Select Case UCase(ActiveCell.Value)...