VBA If Statement Formatting

[hobbiton73]

Hi, I wonder whether someone can help me please.

I'm trying to put together a small script (below) to format sheets within a given array.

Please Login or Register  to view this content.

The problem I'm having lies with this section of code:

Please Login or Register  to view this content.

As you can see, I'm trying to apply a certain set of formatting just to three of the sheets from the original array created at the beginning of the script, but I've clearly made an error because when I run this, I receive an error message.

I just wondered whether someone may be able to look at this please and let me know where I've gone wrong.

Many thanks and regards

[TMS]

You've not closed the If block with an End If and you' ex not closed the For loop with a Next statement.


Regards, TMS

[nilem]

and try this

Please Login or Register  to view this content.

instead of If ws.Value = Array("Monthly Direct", "Monthly Indirect", "Monthly Overheads") Then

[TMS]

@nilem: the formatting is not the same for each range. Regards, TMS

[HaHoBe]

Hi, Trevor,

Please Login or Register  to view this content.

But I think the Select Case will only be part of the normal Loop. Another way could be to utilize a Boolean on the worksheet names and work with that.

Ciao,
Holger

[hobbiton73]

Hi @TMShucks, thank you for taking the time to reply to my post, and my apologies for the typo.

The original code should have been:

Please Login or Register  to view this content.

All the best and kind regards

[hobbiton73]

HI @HaHOBe, thank you for taking the time to reply to my post and for the code suggestion, it works great.

All the best and kind regards

Chris

[hobbiton73]

Hi @nilem, thank you for taking the time to reply to my post and for the suggested code.

Unfortunately, this doesn't quite have the desired, but as you can see @HaHoBe has also kindly provided a solution.

All the best and kind regards