Sub bumpit()
For Each r In Selection
r.Font.Size = r.Font.Size + 1
Next
End Sub

you can do something similar to make a shrinkit, but be usre to check for
not less than one.
--
Gary''s Student - gsnu200764


"StargateFanFromWork" wrote:

Is there syntax for reducing and enlarging font by 1 pt? What I mean by
that is so that if font in cell is 10pt, by clicking enlarge font by 1 pt,
it would increase to 11pt, and it we clicked again it would go to 12pt?

And the opposite, syntax to do "-1" point?

Thanks. :oD