Concatenate msoThemeColorAccent with the Value of j in For Next Loop

I am going to use a For Next loop to change the color of lines for five different series. The colors I'm using are:

msoThemeColorAccent1
msoThemeColorAccent2
msoThemeColorAccent3
msoThemeColorAccent4
msoThemeColorAccent5

The segment of the code with the loop is:


Dim j As Integer

For j=1 to 5

ActiveChart.FullSeriesCollection(j).Format.Line.ForeColor.ObjectThemeColor = #msoThemeColorAccent concatenated with j#

Next j


It seems my problem is very trivial, yet I cannot get the concatenation right, i.e. msoThemeColorAccent & j.

I am kindly asking for some advice.

Regards,
Robert

Hi Rory, thank you for your reply.

Well the colours I'm using are from a custom-made palette and they are called exactly "msoThemeColor1" etc (I've got this name from recording the macro first).

If I understand your reply correctly, these names can be simply replaced by an integer? I'm asking because I'm quite new to the VBA code and would like to learn about it.

Regards,
Robert

Got it, thank you!