Change color on tab

[KlausW]

Hi I have a vague plan divided into months, I have tried with this VBA to get the color of the tab as the date you are in now to change the Danish name of the month is in cell E1, but it may not need to happen. The VBA code is in this production's directory, but it's not what's wrong, anyone can help?

Private Sub Workbook_Open ()


Dim WS As Worksheet

Dim MountNu As String

MountNu = Range ("E1") & WorksheetFumktion.MountNow ()

For Each WS In ThisWorkbook.Worksheets

If WS.Name = MountNu Then

WS.Tab.ColorIndex = 4

Else

WS.Tab.ColorIndex = xlColorIndexNone

End If

Next


End Sub

All help will be appreciated

Regards Klaus W

 

[KlausW]

But is it in Danish, assuming that's how the sheets are named?

Yes the MsgBox say MAJ with is i Danish and that it what the name of sheets are named

 

[Fluff]

In that case check the sheet names for leading/trailing spaces.

 

[KlausW]

In that case check the sheet names for leading/trailing spaces.

These are checks there are no spaces in front of or behind sheet names

 

[Marc L]

Hi folks !​

​

Don't you see the typo in the 'WorksheetFunction' codeline ?!​

 

[Fluff]

Did you put the code into the ThisWorkbook module, or into a different module?

 

[KlausW]

These are checks there are no spaces in front of or behind sheet names

Hi Again 1000 thanks for the help, now I have found the problem, the month name was in capital first letter. So it's fixed. Once again thank you. Best regards Klaus W

 

[Fluff]

Glad it's sorted & thanks for the feedback.