Este fórum está sendo desativado

[guinardelli]

Bom dia, estou utilizando o seguinte código em minha planilha:

Código: Selecionar todos

Sub Redimensiona()

    With Woorkbook(EstaPasta_de_trabalho).Activate
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
        .Height = 600
        .Width = 840
    End With
        
End Sub

Ele funciona e redimensiona a janela do meu excel conforme desejado.

O problema é que se eu tiver 2 ,3 ou mais planilhas abertas ele redimensiona todas.

Como fazer para ele redimensionar apenas a que entrei com o código ?

[guinardelli]

Na verdade o código que estou usando é este:

Código: Selecionar todos

 With Application
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
        .Height = 245
        .Width = 515
    End With