Find/Find next in a Range xl 2003

[joe.muckle]

Hi Guru's

I have just come accros a macro which allows me to search and then find next (... I know Ctrl + F !!!!!!).

The code is below:

Sub nthmatch()
lookfor = InputBox("What is the Item number? Use * if end of number is unknown.", "Search")
If lookfor = "" Then
  End
End If
  
Flag1:
If Not Cells.Find(What:=lookfor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False) Is Nothing Then
  
  Cells.Find(What:=lookfor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False, SearchFormat:=False).Activate
  
  If MsgBox("Is this the correct Item?", vbYesNoCancel) <> vbYes Then
    GoTo Flag1
  End If
Else
  MsgBox ("The Item is not in the list")
End If
End Sub

Does any one know how to change this so that I am only looking in Columns B and C ??

Im guessing it is within this part but I cannot work out the format.

If Not Cells.Find(What:=lookfor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False) Is Nothing Then

Thanks in advance.

 

[VoG]

Try

If Not Columns("B:C").Find(What:=lookfor, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False) Is Nothing Then

 

[joe.muckle]

Perfect, thanks for your help.

 

[joe.muckle]

Sorry to be a pain, is there a way to remove the automatic cursor position from this message box? (it is automatically placed over the 'Yes' button).

If MsgBox("Is this the correct Item?", vbYesNoCancel) <> vbYes Then
    GoTo Flag1
  End If

Thanks again.

 

[VoG]

To make it No try

If MsgBox("Is this the correct Item?", vbYesNoCancel + vbDefaultButton2) <> vbYes Then
    GoTo Flag1
End If

 

[joe.muckle]

Thanks again.