Thiago Cherobim Candançan

@Midori estou perdido de onde inserir, ainda sou novo em vba, apanho bastante rs Dim NewRwHt As Single Dim cWdth As Single, MrgeWdth As Single Dim c As Range, cc As Range Dim ma As Range Dim linha As Integer linha = ActiveCell.Row With Target If .MergeCells And .WrapText Then Set c = Target.Cells(linha, 1) cWdth = c.ColumnWidth Set ma = c.MergeArea For Each cc In ma.Cells MrgeWdth = MrgeWdth + cc.ColumnWidth Next Application.ScreenUpdating = False On Error Resume Next ma.MergeCells = False c.ColumnWidth = MrgeWdth c.EntireRow.AutoFit NewRwHt = c.RowHeight c.ColumnWidth = cWdth ma.MergeCells = True ma.RowHeight = NewRwHt cWdth = 0: MrgeWdth = 0 On Error GoTo 0 Application.ScreenUpdating = True End If End With End Sub

@Midori Tudo bem? Essa solução me ajudou bastante, só que eu gostaria queria a linha ajustasse depois de escolher um valor lista suspensa da célula D1 para ajustar a C16, neste caso da Luciana só atualiza depois que clica na célula, consegue me ajudar?