seleccionar un rango a partir de una numero en una celda

hola, Rafael !

En la celda a1 pongo el numero 10, deseo que se seleccionen 10 celdas automaticamente
y si el valor cambia el rango de seldas seleccionadas cambie.

1) y... te da lo mismo que las 10 celdas [o segun el numero que pongas en 'A1'] sean... 'en cualquier parte' ?
o... tienes ya establecida una celda 'de partida' ?

2) y... seria igual tambien si la seleccion se extiende en horizontal que en vertical ?

3) y... que debera suceder si en 'A1' no pones ningun numero, o cero, o 'negativo', o... ?

en via de mientras, copia/pega las sguientes lineas
en el modulo de codigo de la hoja donde esta la celda 'A1' que necesitas 'manejar' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If [a1] > 0 Then [a1].Resize([a1]).Select
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.