how can I increase font size of each cell on entire excel sheet effeciently?

Question

how can I increase font size of each cell on entire excel sheet effeciently ? When I use foreach loop excel goes non responsive.

Solution 1

Try this Sub:

  Sub IncreaseFontSize()    
     ActiveSheet.Cells.Font.Size = 14
  End Sub

... Just change the size to whatever you want.

Solution 2

No need for VBA (unless of course part of another macro):

Simply select all worksheets (activate the first worksheet and then press Shift and select the last worksheet), then select all cells (Ctrl-A) and enter the desired font size in the Home tab's font size drop down or use the `Increase Font Size´ button.

Comments

[whytheq]

+1 as simple as that (why don't I ever stumble on these sort of questions!)

[John Bustos]

LOL - Couldn't agree more - Some times you just get a gimme :)

[John Bustos]

... Just as nice and eloquent a solution! +1