Label Caption Does Not Appear Until Label Is Clicked

[TheKernz]

Hi everyone,
this is my first time posting to this forum and I'm still mostly a VBA noob, so bare with me.
I created a userform where if a value from cell x is true then the label caption changes to value in cell z. While everything works fine, the label caption does not seem to appear in my userform until i click on the label. Is there anyway that it can appear automatically once the userform opens?
Thanks

Also example of my code is:

Private Sub EventDateResult_Click ()
If Range("A5") = "1" Then
Me.EventDateResult.Caption = Range("N4")
End If
End Sub

 

[saltkev]

Hi Try this in the Activation Event for your Userform

Sheets("sheet1").Activate
If ActiveSheet.Range("A5") = 1 Then
UserForm1.yourlabelname.Caption = ActiveSheet.Range("N4")
End If

Regards

Kev

 

[mikerickson]

You could try

Private Sub EventDateResult_Click ()
If Range("A5") = "1" Then
    Me.EventDateResult.Caption = Range("N4")
    Me.Repaint
End If
End Sub

 

[TheKernz]

Thanks mikerickson. The me.repaint, combined with a userform_initialize() line of code did the trick.