Macro to change font size help

[kriminaal]

I am relatively new with VBA and muddle my way through.
I recorded a macro to get an idea of how to create changed font size to 1 in selected ranges.
Then I deleted most of the 'fluff' from the recorded macro to get this.
I have been trying for a few hours to make this work with different things but to no avail.
Can someone give me some insight on this please and thank you.

Please Login or Register  to view this content.

[Eastw00d]

Hi, I am not really into selecting a lot, but this seems the trick in this matter:

Please Login or Register  to view this content.

I added the value and the coloring for testing purposes (in order that I can see what I am doing)
Cheers
Erwin

[kriminaal]

Thanks, that is working.
But when I combine.
The first section does not, the last one does.

Please Login or Register  to view this content.

EDIT: My mistake, missing the End With

[Eastw00d]

you forget one time "end with"

Please Login or Register  to view this content.

Cheers
Erwin

[Eastw00d]

If you set this standard on top of your procedures, it will never happen again

Please Login or Register  to view this content.

via Extra, Options, check require variable declaration.

Cheers
Érwin

[kriminaal]

Excellent, thanks for the help.

[kriminaal]

Do you see anything wrong in this?
Only the last section works.
Something with how it's compiled I'm guessing.

Please Login or Register  to view this content.

EDIT: for those reading....it seems this does not work with the sheet protected.