Reply to thread

Message: [QUOTE="Phillip, post: 9475693"] This worked for me Phillip London UK Private Sub cmdfind_Click() Dim rngToSearch As Range Dim rngFound As Range Dim FindWhat As String Dim Matches As Boolean FindWhat = TextBox21.Text Matches = False For Each sht In Sheets If TypeName(sht) = "Worksheet" Then Set rngToSearch = sht.Columns("A") Set rngFound = rngToSearch.Find(What:=FindWhat, _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ MatchCase:=False) If Not (rngFound Is Nothing) Then Matches = True sht.Select rngFound.Select End If End If Next If Matches = False Then MsgBox "Sorry " & FindWhat & " was not found." Else Me.Tb2.Text = rngFound.Offset(0, 1).Value Me.tb3.Text = rngFound.Offset(0, 2).Value Me.tb4.Text = rngFound.Offset(0, 3).Value End If End Sub [/QUOTE]