Makro til antal linjer

Denne bid kode tilpasser højden på række 1

    Rows("1:1").EntireRow.AutoFit

Har forsøgt det, men jeg kan ikke få det til at virke. Min makro er bare lavet som:

Sub Tilpas_celler()

Rows("99:142").EntireRow.AutoFit

End Sub

Er der noget jeg glemmer? Identifikation eller?

Hmm jeg kan godt se at det åbenbart ikke virker når teksten er hentet via en formel.

Jeg har fundet en løsning der umiddelbart virker.

Først kopier jeg data og indsætter som værdi, derefter laver den autofit, og så indsætter jeg formlen igen, som henter dataene i dette tilfælde fra A1

Sub Tilpas_celler()

    Range("a2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Rows("2:2").EntireRow.AutoFit
    ActiveCell.Formula = "=A1"
   
End Sub

Hej Snej

Vil du skrive et svar, så vil jeg give pointene.

Hermed svar

Jeg har stadig ikke fået et svar som jeg kan tildele point til?