Assign name to label in user form

[mikeymay]

I have a label in a user form and I want to assign a text value to it dependant on a cells value.

E.g.
Cell A6 = "Manager"
User Form Label = "Manager"


Thanks

 

[VoG]

Try

Private Sub UserForm_Initialize()
Me.Label1.Caption = Sheets("Sheet1").Range("A6").Value
End Sub

 

[mikeymay]

The label will change as the routine looks at a list and needs to change it a few times.

Is there a way of doing it without having to re initialise the form every time?

 

[VoG]

You don't have to use the Initialize code.

Sub test()
Sheets("Sheet1").Range("A6").Value = "Another"
UserForm1.Label1.Caption = Sheets("Sheet1").Range("A6").Value
UserForm1.Show
End Sub