Here is the problem. I am not able to get the info to paste into sheet1. I
can use the find function to find the cell but not able to paste. I would
also like to mention that I have multiple text boxes to search from. If
anyone can help i would greatly appreciate it. Thanks
-mark
Private Sub cmdFind_Click()
Dim R As Range
Dim Sheet As Worksheet
Sheets("sheet1").Select
Sheets("Sheet2").Select
Cells.Find(What:=txtFind.Text, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate