Insert this code in your form:
Private Sub Userform_Initialize()
Me.Caption = appname & "Help"
LastRow = Sheets("Sheet1").Range("A65536").End(xlUp).Row
TxT = ""
For r = 1 To LastRow
TxT = TxT & Sheets("Sheet1").Cells(r, 1).Text & vbCrLf
Next r
With Label1
.Top = 0
.Caption = TxT
.Width = 160
.AutoSize = True
End With
With Frame1
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 9
End With
End Sub
No comments:
Post a Comment