Este fórum está sendo desativado

[luizroberti]

Olá,
Estou com uma dúvida, tenho a função:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$5" Or Target.Address = "$G$5" Then 'AQUI altere a celula c/ a Lista de validac.
ActiveWindow.Zoom = 125
Else
ActiveWindow.Zoom = 50
End If
End Sub

qual me retorna o zoom para 125 nas duas celulas definidas e retorna em 50 para as demais.

Gostaria de expandir essa selação para um conjunto de células bem maior, nao sei que função alterar ou onde alterar para conseguir isto.
OBS: Não conheço muito sobre VBA. A planilha que possuo tem seleção de dados e por possuir muitos dados a fonte fica pequena.

Grato.

[babdallas]

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
           Case  "$E$5",  "$F$5",  "$G$5",  "$H$5", "$I$5" 
                      ActiveWindow.Zoom = 125
            Case Else
                      ActiveWindow.Zoom = 50
    End Select
End Sub