Problems with find
Posted by Lewis on November 24, 2001 2:50 PM
I am using the following to find a 5 figure number in the format 00003 in a column of numbers. It however fails to find it.
It is based on a posting by Barrie Davidson.
I would also like to restrict the search to a single column
' Search Macro
' Macro recorded 24/11/2001 by Lewis Conquer
' Keyboard Shortcut: Ctrl+Shift+S
Dim SearchValue As String
On Error Resume Next
SearchValue = InputBox("Enter RMA Number" & Chr(13) & _
If IsError(Cells.Find(What:=SearchValue, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate) = True Then
MsgBox ("RMA Number Not Found")