Range("A1:Z3000").Select ' Or your preferred range
With Selection
..Font.Size = 12 ' set the size to suit
End With
--
Best wishes,

Jim


"omchrystal" wrote:

In a spread sheet where fonts vary in size, is readable on screen and prints
out very small, how can I change all font sizes at once without changing
anything else in my document?