Centrar pantalla referente a una celda

En distintas celdas tengo "Listas Desplegables" que por el tamaño del diseño se ven muy muy pequeñas.

He desarrollado lo siguiente para que se vean grandes los componentes de cada lista, pero siempre aparecen en Home cuando las elijo. Quisiera que quedaran más o menos centradas en la pantalla. Podrá haber solución?

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Or Target.Address = "$D$7" Or Target.Address = "$F$7" Or Target.Address = "$G$7" Or Target.Address = "$L$32:$N$32" Or Target.Address = "$O$32:$Q$32" Or Target.Address = "$I$5:$K$5" Or Target.Address = "$I$7:$K$7" Then
ActiveWindow.Zoom = 120
Application.Goto Reference:=ActiveCell, scroll:=True
Range("C7").ColumnWidth = 30
Range("D7").ColumnWidth = 30
Range("F7").ColumnWidth = 30
Range("G7").ColumnWidth = 30
Range("L32:N32").ColumnWidth = 15
Range("O32:Q32").ColumnWidth = 15
Range("I5:K5").ColumnWidth = 10
Range("I7:K7").ColumnWidth = 10
ActiveCell.Select
Else
Range("C7").ColumnWidth = 15
Range("D7").ColumnWidth = 15
Range("F7").ColumnWidth = 15
Range("G7").ColumnWidth = 15
Range("L32:N32").ColumnWidth = 10
Range("O32:Q32").ColumnWidth = 10
Range("I5:K5").ColumnWidth = 20
Range("I7:K7").ColumnWidth = 20
ActiveWindow.Zoom = 55
Range("A1").Select
End If
End Sub

0

Añade tu respuesta

Haz clic para o