Change label forecolor when on sheet

[CheekyDevil2386]

HI experts!

Sorry for the simple question here but I've scoured pages looking for an answer with no luck.

All I'm trying to do is use the below loop code to set all the label forecolor properties to black. The code is contained within a larger With statement if that matters? The height and width work well, just not the forecolor:

It's also in a module, again if that makes any difference, and the labels are all on Sheet1.

With Sheet1
On Error Resume Next

      For l = 1 To 50
         .Shapes("Label" & l).Height = 19.25
         .Shapes("Label" & l).Width = 102.75
         .Shapes("Label" & l).Forecolor = 0
      Next l

End With

Just can't seem to work out how to reference the labels on Sheet1 to change the text color. Any help is greatly appreciated!

 

[Saurabhj]

Hi,

Change the code as below to change the forecolor:

.Shapes("Label" & l).Fill.ForeColor.RGB = RGB(0, 0, 0)

 

[CheekyDevil2386]

Thanks for the reply Saurabhj, unfortunately that hasn't worked. I'll play around with that line as I can see the flow is correct, I may have it in an incorrect area

Thank you again for the assistance!