Change text size to fit cell

[ThomasOES]

I need the text to fit the cells in a range. I need the cell size to remain the same but text font to shrink if it overflows.
Cant figure why code below not working

Range(ActiveCell, ActiveCell.Offset(60, 0)).Select
For Each cell In Selection
    ShrinkToFit = True
Next

Thanks for any help
Tom

 

[Fluff]

Try

For Each cell In Selection
    [COLOR=#ff0000]cell.[/COLOR]ShrinkToFit = True
Next

 

[ThomasOES]

Thanks MVP.

Tom

 

[Fluff]

You're welcome