Olá pessoal muito bom dia.
Hoje um amigo me procurou, e perguntou se havia alguma forma de ajustar a altura das linhas e largura das colunas de células que estão mescladas.
Tentei diversas formas com o comando Columns("A:C").EntireRow.AutoFit, mas não deu certo.
Se as células não estiverem mescladas, isso funciona.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Len(Range("A1:C2").Merge) > 30 Then ' Se houver mais de 30 caracteres digitados, então ajusta altura e largura do intervalo mesclado.

    Columns("A:C").EntireRow.AutoFit


    End If

End Sub

Alguém teria alguma sugestão.