Search for a value in the tabs and give the tab names in return

Hello to all,

I have a problem with the search macro below which allows me to search for a value in the entire workbook.
Except that it only returns the name of the first tab found and I would like to know all the tabs where the basic data is located.

Thank you very much in advance,
Benten667

Private Sub SearchButton_Click()
Dim BE As Variant
Dim O As Worksheet
Dim R As Range
Dim TEST As Boolean
Dim PosX As Integer
Dim PosY As Integer
BE = Application.InputBox("Type the reference to search", "SEARCH REFERENCE", Type:=2)
PosX = 180
PosY = 475
If BE = False Or BE = "" Then Exit Sub 
For Each O In Worksheets
    Set R = O.Cells.Find(BE, , xlValues, xlWhole)
    If Not R Is Nothing Then
        MsgBox R.Value & " Found in the tabs " & O.Name
        TEST = True
        Exit Sub
    End If 
Next O
If TEST = False Then MsgBox "No tab has this reference !"
End Sub