Search Function in UserForm

[johan12]

Hello, l have this form of search,(see in Attach), and works very well, but problem is that it search only in column A, I want to Search at the same time together in column A and in column B. example One "Johan" is in a column A and another is in column B, I want to find all in column A and In column B, to display all results in listbox.

Thank You.

Private Sub TextBox1_Change()
    Dim rng As Range, e
    With Me
        .ListBox1.Clear
        If Len(.TextBox1.Value) Then
            For Each e In Sheets("sheet1").Cells(1).CurrentRegion.Columns(1).Offset(1).Value
                If (e <> "") * (e Like "*" & .TextBox1.Value & "*") Then
                    .ListBox1.AddItem e
                End If
            Next
            With .ListBox1
                If .ListCount > 0 Then .ListIndex = 0
            End With
        End If
    End With
End Sub