Solved: display multiple labels as $0.00

[av8tordude]

Is there a simpler way to code multiple labels (see list below) to display as $0.00, instead of writing a code for each label such as...

Test1A = "$0.00"
EL2A = "$0.00"
etc.

("Test1A", "EL2A", "EL3A", "EL4A", "EL5A", "EL6A", _
"TEST7A", "DL8A", "DL9A", "DL10A", "EL5B", _
"EL6B", "TEST7B", "DL8B", "DL9B")

[GTO]

Hi Aviator,

What type of labels?

[av8tordude]

Hi GTO,

Their userform labels.

[Tinbendr]

Private Sub UserForm_Initialize()
Dim MyArray As Variant
Dim A As Long

MyArray = Array("Test1A", "EL2A", "EL3A", "EL4A", "EL5A", "EL6A", _
"TEST7A", "DL8A", "DL9A", "DL10A", "EL5B", _
"EL6B", "TEST7B", "DL8B", "DL9B")

For A = 0 To UBound(MyArray)
If TypeName(Me.Controls(MyArray(A))) = "Label" Then
Me.Controls(MyArray(A)).Caption = "$0.00"
End If
Next

End Sub

David

[av8tordude]

Thank you Tin. works perfect :friends: