CODEWITHSUNDEEP
excelvba
Dergyll
Dergyll

Reputation: 949

Excel VBA: range.autofit not "autofitting"

I have the following code in Excel:

Sub autosort()
Dim lastrow As Long
lastrow = Cells(rows.Count, 17).End(xlUp).Row
Range("A3:Q" & lastrow).Sort key1:=Range("Q3:Q" & lastrow), _
   order1:=xlDescending, Header:=xlNo
Call autoborder(Range("A3:Q" & lastrow))
Range("A2:Q" & lastrow).EntireRow.AutoFit
End Sub

Everything works to border up the cells, but I can't get the sheet to auto-fit the row heights via the last line...it runs but when I go back to look at the result the row heights are not autofit.

Any tips would be greatly appreciated, thank you.

Upvotes: 1

Views: 166

Answers (1)

Error 1004
Error 1004

Reputation: 8230

You could try:

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")

        .Cells.EntireColumn.AutoFit
        .Cells.EntireRow.AutoFit

    End With

End Sub

Upvotes: 3

Related Questions