Some Users get VBA error 91 after call Userform with TextBox related to sheet

[platypus007]

Hi, I have this problem with code on some PCs (Error 91). Code is used to give user splash screen after start of workbook - where is classical EULA conditions located with button Accept and Decline. I have problems to call Sheet named EULA, which have the text for the Userform TextBox. Where I go wrong?

Dim txt As String
Dim TextBox1 As Shape
ThisWorkbook.Sheets("EULA").Select
txt = Range("B2").Value & vbNewLine & Range("B3").Value & vbNewLine & Range("B4").Value & vbNewLine & Range("B5").Value & vbNewLine & Range("B6").Value & vbNewLine _
    & Range("B7").Value & vbNewLine & Range("B8").Value & vbNewLine & Range("B9").Value     
Me.TextBox1.Text = txt
Me.TextBox1.SetFocus
Me.TextBox1.CurLine = 0
ThisWorkbook.Sheets("DTD_OVERVIEW").Select

Can you help me?
Thanks

 

[Jon Peltier]

This line makes no sense:

Dim TextBox1 As Shape

Also, no need to select the sheet with the text. Try this:

With ThisWorkbook.Sheets("EULA")
    txt = .Range("B2").Value & vbNewLine & .Range("B3").Value & vbNewLine & .Range("B4").Value & vbNewLine & .Range("B5").Value & vbNewLine & .Range("B6").Value & vbNewLine _
        & .Range("B7").Value & vbNewLine & .Range("B8").Value & vbNewLine & .Range("B9").Value     
End With
Me.TextBox1.Text = txt

And what I would do is put the whole message, line breaks and all, into one cell.