Select Case Target.Address

De la lectura del código no he conseguido deducir qué es lo que estás intentando hacer. Te aconsejo que nos lo digas para que podamos sugerirte un código. En pricipio, el uso que haces de la instrucción Select Case me parece inadecuado. En la ayuda de Excel de esta instrucción viene un ejemplo que considero bastante clarificador.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Pepito I" escribió en el mensaje news:00c401c39011$39150af0$
Hola a todos !!!
Me gusta trabajar con Select case pero ahora me da un
problema: Este código lo tengo en el evento
SelectionChange del Libro con el objetivo de no utilizar
la validación , ni proteger la hoja para no permitir
seleccionar ciertas celdas que contienen Fórmulas. Todo
funciona bien exepto que en la linea que uso To para
decirle que es del rango c27 hasta g29 pero no lo entiende
bien pues reaciona con otras celdas que no pertenecen a
ese rango.
Alguien me pudiera decir como hacerlo para que me acepte
un rango y no tener que hacer un case para cada una.
Espero me ayudan como siempre.Saludos
Pepito
El código es el sgte :
On Error GoTo errorhandler
'ActiveSheet.Unprotect
Select Case Target.Address
Case Range("a1").Address
Case Range("$C$27").Address To Range("$G$29").Address ,
Range("$E$13:$E$14").Address
MsgBox "En esta celda no se puede hacer cambios pues
contiene fórmula"
'Debug.Print Target.Address & Now
Range("a1").Select
Case Else
End Select
Exit Sub
errorhandler:
Resume Next