Shrink To Fit not working when applied through a Cell Style

[eikogs]

I have a worksheet that has a large amount of cells using a custom cell style to apply a number format that I change through VBA. I would also like the cell style to include the "shrink to fit" option. When I modify the cell style to include "Alignment:Shrink To Fit", nothing happens in the cells that already have my cell style assigned. It does seem to work if I reapply the viewing style to the cell. Is there a way to make the cells that have this cell style already applied update how they are displayed?

 

[footoo]

What code are you using? This works for me :

ActiveWorkbook.Styles("Style 1").ShrinkToFit = True