loDoc=loBrowser.Document For Each loStyle In loDoc.stylesheets For i=0 To loStyle.rules.Length-1 loRule=loStyle.rules(i) Lost=loRule.Style lcTag=loRule.selectorText lcSize=Evl(Lost.FontSize, "10px") lnSize=Val(lcSize)* tnSize lcUnits=Chrtran(lcSize,"0123456789.","") If NOT lcUnits = "%" lcSize=Alltrim(Transform(lnSize,"99999.99"))+lcUnits Lost.FontSize=lcSize Endif Endfor EndforThis is still not perfect, as two decimals seems to be not precise enough, so my increments (multiplying with 1.1 or 0.9) sometimes don't register, it rounds up to the same fontsize as before. I'll probably keep a collection of fontsizes per selectorText, and keep the unrounded numbers there.