I currently am using the following code to search my ecel sheet
Dim Prompt As String
Dim UserResp As String
Dim UR As Single



Dim i As Integer
Dim MyText As String, List, myTotal As Double
Dim Cell As Range
Set cmt = ActiveSheet.Comments
Set rng21 = Range("target")
Selection.SpecialCells(xlCellTypeComments).Select

For Each Cell In Selection
Cell.Select
myTotal = 0
MyText = UCase$(Cell.Comment.Text)

If InStr(MyText, UCase$(rng21)) Then

Cells(Cell.Row, 15).Value = rng21
Cells(Cell.Row, 16).Value = Cell.Address


End If

Next Cell
I would like to be able to input the search data in a TEXTbox and do
the same search.
Can anyone help with this
Thanks
and Happy New year