Dynamically Changing Multipage Label Caption

[mykulpasskwa]

I have a multipage with a label on page 1. I want the label to reflect what is in cell B5, but it doesn't do anything no matter what I try. Any ideas?

Private Sub FeesForm_Initialize()
Dim ws As Worksheet

MultiPage1.pgTerm1.lblTerm.Caption = ws.Cells("b5")

End Sub

 

[AlphaFrog]

The UserForm_Initialize procedure is not named after the userform. Don't change its name. It's always called UserForm_Initialize

Change the name of the sheet to suit.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()


lblTerm.Caption = Sheets("Sheet2").Range("B5").Value


[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[mykulpasskwa]

Ah, gotcha! Thanks for the help. That worked great. Cheers!

 

[AlphaFrog]

You're welcome.