How to keep sheet1(output) active while searching sheet2(data) stop sheet switching

please help thanks.

Please post your spreadsheet.

Please post your spreadsheet.

Private Sub CommandButton3_Click()
UserForm2.Show
UserForm1.Hide
End Sub

Private Sub ListBox1_Click()

Range("C5:C26").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
CR = Left(ListBox1.Value, InStr(Trim(ListBox1.Value), " ") - 1) * 1
Sheets("Output").Range("B8").Value = Sheets("Data").Range("B" & CR).Value
Sheets("Output").Range("B9").Value = Sheets("Data").Range("C" & CR).Value
Sheets("Output").Range("B10").Value = Sheets("Data").Range("D" & CR).Value
Sheets("Output").Range("B11").Value = Sheets("Data").Range("E" & CR).Value & ", " & Sheets("Data").Range("F" & CR).Value & " " & Sheets("Data").Range("G" & CR).Value
ListBox1.Visible = False

Unload Me
End Sub

Private Sub TextBox1_Change()

If Len(TextBox1.Text) < 3 Then Exit Sub

Sheets("Data").Select
LR = Range("A95536").End(xlUp).Row

Set rngLook = Range(Cells(1, 2), Cells(LR, 1))

strValueToPick = TextBox1.Text

On Error Resume Next

'Find NAME IN COLUMN A
With rngLook
Set rngFind = .Find(strValueToPick, .Cells(1, 2), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Set rngPicked = rngFind
Do
Set rngPicked = Union(rngPicked, rngFind)
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With

If strFirstAddress = "" Then Exit Sub
If Not rngPicked Is Nothing Then
rngPicked.Select
End If

ListBox1.Clear

For Each c In Selection

ListBox1.AddItem Cells(c.Row, 1).Row & " " & Cells(c.Row, 2).Value & " " & Cells(c.Row, 3).Value & " " & Cells(c.Row, 4).Value & " " & Cells(c.Row, 5).Value & " " & Cells(c.Row, 6).Value & " " & Cells(c.Row, 7).Value

10 Next c
If ListBox1.ListCount = 1 Then ListBox1_Click

Changeflag = 0
End Sub

Sorry will remove quotes.

User will open excel spreadsheet which process them to Sheet"Output".

This has a option to select a button "SEARCH".

The SEARCH will load USERFORM1 which the user can enter in a "TITLE"(a number for example: 1011)

with any matching title 1011 will populate the listbox. ( but issue is when entering 101....... then 1 the sheets switch from OUTPUT to DATA "With the cell highlighted")

that is the issue I have questioned.

Thank you tms!

cheers!