I was able to VB a label to show on a user form from a worksheet.

Private Sub UserForm_Click()

With Label1
.Caption = Worksheets("Sheet1").Range("B4") '
.AutoSize = True
.WordWrap = False
.Font.Name = "Times New Roman"
.Font.Size = 14
.Font.Bold = True
End With

End Sub

How do I propagate the labels with the Range title from the worksheet (Range
B4:B7) stopping at the first encountered empty cell? Also I have to click on
the form to show the actual label before the label caption shows-up. Could I
do it instantaneously?

Thanks a lot.

Ligaya