Autofit Rows in VBA

[JessP]

Hello,

I have a spreadsheet that includes a few columns with a lot of text. To autofit the rows without taking those into account, I wrote the following code, which copies the first 11 columns of each row to row 2001, autofits it, then takes the row height and applies it to the original row. Rather roundabout, I know, but I couldn't come up with something more efficient.

However, it's resizing all of the rows each time rather than saving each one's height individually, so they all end up the same height as the last row. Does anyone have an idea as to how I can change the code to make that happen? Thanks!

Dim N as long
Dim I as long

N = Sheets("New FNA").Cells(Rows.Count, "B").End(xlUp).Row

For i = 4 To N
    Range(Cells(i, 1), Cells(i, 11)).Copy Destination:=Range("A2001")
    Range("A2001").EntireRow.AutoFit
    Range("i:i").RowHeight = Range("A2001").RowHeight
Next i
Range("A2001").EntireRow.Clear

 

[Norie]

Which rows do you want to autofit?

By the way, this will set the RowHeight property of every row in column I.

Range("i:i").RowHeight = Range("A2001").RowHeight

If you wanted to set the row height of row i try this.

Rows(i).RowHeight = Range("A2001").RowHeight

 

[Fluff]

Beaten 2 it

 

[JessP]

Thanks Norie (and Fluff)! Works perfectly - I should probably be more careful how I go about using single letter variables.

 

[Fluff]

I tend to avoid them, partly because they can cause problems as you've just discovered, but also if you need to search for them it can be time consuming & inaccurate.
For instance if you use the Find command (ctrl F) in the VBE if match case is off it will find every instance of i in your code (~14), but if you have Match Case on then it won't find the pair of i's in your Range("i:i")