instruccion para fijar pantalla

con el codigo siguiente fijo la pantalla o inmovilizo los paneles, para que al tener muchas filas pueda visualizar los titulos
y lo que hago es en el comando Ventana | inmovilizas paneles:
Range("B42").Select
ActiveWindow.FreezePanes = true
pero cuando el rango b42 esta a la mitad de la pantalla, alli se fijan
lo que quisiera es que el codigo fije la celda b42 en la esquina superior izquierda de la pantalla sin importar en que parte se encuentre
cuando se dispare la macro, para que asi me deje una area de trabajo razonable.

hola, isaac !

> con el codigo siguiente fijo la pantalla o inmovilizo los paneles, para que al tener muchas filas pueda visualizar los titulos
> y lo que hago es en el comando Ventana | inmovilizas paneles:
> Range("B42").Select
> ActiveWindow.FreezePanes = true
> pero cuando el rango b42 esta a la mitad de la pantalla, alli se fijan
> lo que quisiera es que el codigo fije la celda b42 en la esquina superior izquierda de la pantalla sin importar en que parte se encuentre
> cuando se dispare la macro, para que asi me deje una area de trabajo razonable.

adapta las siguientes lineas, indicando que numero de linea quedara como 'top' y que numero de columna como 'left'
el codigo seleccionara una celda 'abajo y a la derecha' para fijar los paneles...

With ActiveWindow
If .Panes.Count > 1 Then .FreezePanes = False
.ScrollRow = 41
.ScrollColumn = 1
Cells(.ScrollRow + 1, .ScrollColumn + 1).Select
.FreezePanes = True
End With

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