VBA Apply Formatting To Sheets With Specific Name

Hi, I wonder whether someone can help me please.

I've put together the following code which performs the following:

• Find the sheets in the workbook which are not called "Launch Sheet", "All Data", or "All Resources", then

• If the sheet name equals the value in column B on the "All Data" sheet, then

• Apply formatting to the sheets.

Please Login or Register  to view this content.

The code runs without throwing an error, but the formatting isn't applied to the sheets, and I'm not sure why.

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 kind regards

Chris

Hi @John H Davis, thank you for taking the time to come back to me with this.

I've looked at, and tried to code but unfortunately I can't get this to work.

I've taken the 'Next ws' out at the end of the script because I thought might be the cause, but sadly there appear to other issues I'm running into, which I hope you may be able to help me with please.

• In If rng.Value <> "Launch Sheet" And rng.Value <> "All Data" And rng.Value <> "All resources" Then you set the search to find these names in the rng. value but these are the sheet names,

• In the this line With Sheets(rng.Value), forgive me because this could be my lack of knowledge, but it doesn't seem to compare the sheet name to the rng.value

Many thanks and kind regards

Chris

Can you attach a sample with a few sheet names?

You request - " If the sheet name equals the value in column B on the "All Data" sheet, then

Apply formatting to the sheets."

We may need an Error handler it there is the possibility that the sheet does not exist, but With Sheets(rng.Value) should operate on a sheet if the name is the same as the rng value.

If you can attach a sample then perhaps we can see why it is not working.

Try:

Please Login or Register  to view this content.

Hi @John H Davis, thank you very much for coming back to me so quickly with this.

The script works perfectly, thank you very much.

All the best and kind regards.

Chris

You're welcome. Glad to help out and thanks for the feedback and the rep.