Poste seu arquivo modelo por favor...

Visite meu blog:

programacaopassoapasso.wordpress.com

Boa tarde!!

Use o comando:.Rows.AutoFit

Me.UsedRange.Rows.AutoFit 

Ajusta Colunas e Linhas

    With Me.Cells 
        .Rows.AutoFit 
        .Columns.AutoFit 
    End With 

Leia:
https://msdn.microsoft.com/en-us/librar ... 20840.aspx

Att

Alexandre, obrigado por responder.

Para que executasse, tive que adaptar o código para

Sheets("09 e 10").Range("A1:N500").Rows.AutoFit

Ainda assim, depois de executado, a estrutura das linhas permaneceu do mesmo jeito, sem alterações. Apenas a primeira linha da célula fica visível.

Bom dia. Alguém tem alguma outra ideia para me ajudar?

O Alexandre passou como proceder, mas se você utilizou da forma que você descreveu acima, com certeza deve ter recebido mensagem de erro, a não ser que tenha utilizado instrução para Ignorar a mensagem de erro.

Procure colocar da seguinte forma, uma instrução para cada Aba

Sheets("09").Range("A1:N500").Rows.AutoFit
Sheets("10").Range("A1:N500").Rows.AutoFit

[]s

Mauro, bom dia. Tudo bem?

Na verdade é uma aba só cujo nome é "09 e 10".

O que acontece é que ao final da execução a altura da linha sempre fica em 15,00, mesmo tendo mais conteúdo na célula...

Jr, para que o AutoFit tenha o efeito que deseja, suas celulas tem de estar com a formatação de "Quebrar Texto automaticamente" habilitada :

Sheets("09 e 10").Range("A1:N500").Rows.WrapText = True
A linha acima define com Verdadeiro para todo o Range, só que tem de ver certinho qual será o efeito para as demais linhas e colunas, dependendo do resultado, temos de utilizar junto com ".Columns.AutoFit".

Se não conseguir, o ideal seria anexar um modelo reduzido para analisar a rotina que está alimentando esta aba ae ver qual seria a melhor forma.

[]s