Macro to Autofit Rows - Based on Column Entry

[Jim-in-I]

I have finally exhausted my searches on this topic and hope that someone with a better head for VBA might be able to lead me there.

I am attempting to create a macro that will Autofit only the rows which contain "TRUE" in Column B. (The "TRUE" entry in column B is derived from a formula that is checking for maximum words in a range of cells on that row). This sounded like a simple task, but it has stumped me.

Any pointers would be greatly appreciated.

Jim

 

[Von Pookie]

Would this work for you?

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> test()
<SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> Range, i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>

<SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> [B65536].End(xlUp).Row
    <SPAN style="color:#00007F">Set</SPAN> c = Cells(i, 2)
    <SPAN style="color:#00007F">If</SPAN> c.Value = "TRUE" <SPAN style="color:#00007F">Then</SPAN> c.EntireRow.AutoFit
<SPAN style="color:#00007F">Next</SPAN> i
    
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Jim-in-I]

Kristy,

That worked perfectly! I just could not figure out the exact syntax, but your solution resolved that very issue. Thanks for taking your time to help and instruct me.

Jim