I am trying to search through an excel worksheet using the code below. I have a [highlight]Form[/highlight] containg a text boxes and a command button (SearchTxt, FindCmd). The VBA program is able to search through XL but (1) It does not set the next value or text in a the worksheet active
(2) It only finds a value or text as an entire cell and not as a set of characters in a cell.
I tried to use Cells.Find method that solves the above problems, but i get an error message-[highlight]Object variable not set (91) [/highlight].
I would trully appreciate someones assitance...
Private Sub FindCmd_Click()
Dim Rng1 As Variant
If SearchTxt.Text = "" Then
MsgBox "Please enter Vendor Number.", vbOKOnly, "Error"
Set Rng1 = Range("A1:F10000").Find(what:=SearchTxt.Text, Lookat:=xlWhole, _
If Rng1 Is Nothing Then
MsgBox "Cannot Find" & " " & SearchTxt.Text & ".", vbOKOnly, "Sorry"