Article ID: 124924 - View products that this article applies to.
This article was previously published under Q124924
This article has been archived. It is offered "as is" and will no longer be updated.
You can create a Microsoft Visual Basic for Applications procedure that emulates the behavior of the Microsoft Excel Find command. To do this, use the Find and FindNext methods in a Visual Basic module.
The code in the "More Information" section of this article allows you to find all occurrences of a search string in the active worksheet without changing the selection or the active cell. When the search text is located, the code displays a message box with the address of the cell that contains the search string. If the search text is not found, a "Search Value Not Found" message box is displayed.
NOTE: You can easily modify this code by replacing the MsgBox statements with the code that you want to run whenever the search text is or is not found.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
Sample Visual Basic Procedure
If the range in which the search text is to be found is in a small portion of the worksheet, use the For...Each control structure instead of the Find method (For...Each requires less code). The advantage to the Find method is
that it is faster than For...Each on large ranges such as an entire worksheet.
If the string that you are searching for is only a portion of the contents of a cell, use the "xlPart" constant for the lookat named argument of the Find method.
For additional information, please see the following article in the Microsoft Knowledge Base:
(http://support.microsoft.com/kb/108892/EN-US/ )XL: Cells.Find Returns Error When No Match Found
Article ID: 124924 - Last Review: October 26, 2013 - Revision: 3.0