Change Font & Size in All Worksheets

I'm trying to change all fonts in a workbook via vba. I would ideally like to change the font and size for everything in each sheet and then go back and make the top row larger and underlined for the headers. So far I can only make it change the activesheet and not all others. I'm brand new to looping so I think there lies the problem....

Please Login or Register  to view this content.

Thanks!

This should do the trick

Please Login or Register  to view this content.

Thanks for the quick feedback. I just came across this and it worked, but I like your example better.

Please Login or Register  to view this content.

My next question will be I'm trying to bold and underline all text in Row 1 for the header. By underline, I mean a bottom line on the cell, not underlining the actual text. I know .bold = true should work for the bold, but I'm researching the underline part. Since I'm selecting the entire row, however, it's going to underline past the last cell with text. Is there a way to make it only underline occupied cells?

Thanks!

Here's what I've got so far:

Please Login or Register  to view this content.

It's saying "Compile Error: Next without For"

Not sure why...

try:

Please Login or Register  to view this content.

Works like a charm....not to sound like a pest, but I have one more issue that is definitely above my level of VBA....

Each sheet has columns B & C with numbers. I'd like to total these numbers a few rows down from the last occupied cell.

It would probably be something like:

mycount = Application.Count(Range("B:B"))

Offset(Range("B & Mycount),2,0)

=sum("B2:B & Mycount)

I'd love to get to a point where this becomes easy...I think the book that I'm starting with is a little to complex for me....maybe "VBA for dummies" would be a better start!!

Thanks again...

try:

Please Login or Register  to view this content.

Ok. Thanks so much for your help. I actually got the totals to work another way I found on Google, but your method seems more clear to me.

Below is what I believe to be the finished product. I will make the change for the subtotals that you show, but other than that, is there any room for cleanup or anything you might suggest doing differently?

Please Login or Register  to view this content.

Thanks again!

by running this macro for change in font & size of all sheets in one work book ecxel is getting closed & then restarted without the effect of macro can somebody help on this topic