Macro to increase font size

**lroyle** · 09-23-2009, 07:55 AM

Hi, I am looking for a macro that will increase the font size in the selected cell/range by 1 point. For example; with cell A1 selected and a default font size of 11, if i ran the macro 4 times (on the same selection) the font size in the selected cell would then be 15. I can only seem to manage to set the font size to a fixed size and this is not what i am looking for. It seems like a simple problem but i cannot find a way to do it (i'm a bit of a VB idiot though!). Any help would be greatly appreciated. Cheers!

**sweep** · 09-23-2009, 08:00 AM

Hi,

How about this:

Please Login or Register  to view this content.

**shg** · 09-23-2009, 08:00 AM

Welcome to the forum.

Please Login or Register  to view this content.

**sweep** · 09-23-2009, 08:02 AM

SHG,

Why the (1) ?

**lroyle** · 09-23-2009, 08:44 AM

Thank you all. I feel truly stupid now - i knew it should be simple.

Cheers!

**shg** · 09-23-2009, 08:47 AM

SHG,

Why the (1) ?

If the selection contains multiple cells, and the font size is not all the same, Selection.Font returns Null. This way it applies a font size one point larger than the first cell in the selection.