Labels and multiple worksheets.

[Shalbriri]

Dim sh as Worksheet

For Each sh in ActiveWorkbook.Worksheets
sh.BlueLabel.Caption = sh.BlueLabel.Caption + 1
Next sh

i was hopeing this code would change every Label's caption named BlueLabel by value 1

but it doesn't work. but it should since the labels are ActiveX Controls and when code is written

BlueLabel.caption = BlueLabel.Caption +1

then this way it updates the labels value by 1

EDIT:
Forgot to add the error also:
compile error
Method or data member not found

 

[Jon von der Heyden]

This seems to work for me, using ActiveX control (although I prefer to use controls from the Forms menu).

Public Sub Test()
    Dim wks As Worksheet
    Dim lbl As MSForms.Label
    
    For Each wks In ThisWorkbook.Worksheets
        Set lbl = wks.OLEObjects("BlueLabel").Object
        lbl.Caption = lbl.Caption + 1
    Next wks
End Sub