VBA Userform, Make all label boxes format as Zip Codes

[amxtomzo]

Hello and thanks for looking

I will have about 40 label boxes that are linking from a worksheet,
the info coming into these label boxes are zip codes

the label boxes are named as Lb3 to Lb40
and I would like them to format as 5 digit Zip Codes

I was thinking of putting something like this in Initialized
but I am missing something, I keep getting error messages

For j = 3 To 40
    With UFZipAssigned.Controls("Lb" & j)
        .Caption = Format(("Lb" & j), Value, "00000")
        
    End With
Next j

thank you

Thomas

 

[Norie]

Try this.

For j = 3 To 40
    With UFZipAssigned.Controls("Lb" & j)
        .Caption = Format(.Caption, Value, "00000")
        
    End With
Next j

 

[amxtomzo]

Norie

No Luck
comes back with error cant find specified object

right now there are only 2 pieces of code in Initialize
One that links the cells I want to list
and this one I am trying to create

Thomas

 

[Rick Rothstein]

Try this.

For j = 3 To 40
    With UFZipAssigned.Controls("Lb" & j)
        .Caption = Format(.Caption, Value, "00000")
    End With
Next j

Norie

No Luck
comes back with error cant find specified object

I know you copied what the OP had, but the Format function only takes two arguments when used the way the OP wants... I am not sure what "Value" is supposed to be doing in there, but I suspect if you remove it, your code will function properly...

For j = 3 To 40
    With UFZipAssigned.Controls("Lb" & j)
        .Caption = Format(.Caption, "00000")
    End With
Next j

 

[amxtomzo]

Rick

Bingo, that did it, working now

thank you Again Rick

Norie

Thank you as well

I do greatly appreciate the support I find here

Thomas