Getting my text box scrollbar in VBA to stay at the top when clikc inside text box.

Question

I have  a textbox with a verticals scrollbar.

I want the scroll bar to remain at the top at start.

So that when users click inside the text box, it doesn't scroll to the bottom of the text, which is what is currently happening.

'

I found this online but don't know how to implement:

In the UserForm's Initialize event, set the starting point of the cursor to TextBox's start using .SelStart

For example.

Private Sub UserForm_Initialize()
    Dim sSample As String
    Dim i As Long

    For i = 1 To 10
        sSample = sSample & "Blah Blah" & i & vbNewLine
    Next i

    TextBox1.Text = sSample

    '~~> Set to starting point
    TextBox1.SelStart = 0
End Sub

Not sure this works or where to find the Initialize event...

If someone can help,

Thanks,

Faycal

Answer 1

Hi Faycal

Try replacing:

TextBox1.SelStart = 0

with

TextBox1.SetFocus

TextBox1.CurLine = 0

Answer 2

Set the EnterFieldBehavior property of the TextBox to fmEnterFieldBehaviorRecallSelection

https://docs.microsoft.com/en-us/office/vba/lan...

Andreas.

Answer 3

Thanks Andreas,

I will try.

Answer 4

Thanks Dave,

I will see if that works.

Best

Faycal

Answer 5

Hi Dave,

I m still having the same issue.

Code doesn't seem to work or maybe I m not editing correctly.

following all the code I have added to my app:

Private WithEvents app As Application

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)

    For Each Sheet In ActiveWorkbook.Worksheets

        Sheet.Select

        Range("A1").Select

    Next

    app.Goto Wb.Worksheets(1).Range("A1")

    app.ScreenUpdating = True

End Sub

Private Sub Workbook_Open()

  Set app = Application

End Sub

Private Sub UserForm_Initialize()

    Dim sSample As String

    Dim i As Long

    For i = 1 To 10

        sSample = sSample & "Blah Blah" & i & vbNewLine

    Next i

    TextBox1.Text = sSample

    TextBox1.SetFocus

    TextBox1.CurLine = 0

End Sub