Find...

Home Search Site Map

Up
Clear
Copy
Cut
Delete...
Delete Sheet
Fill
Find...
Go To...
Links...
Move or Copy Sheet...
Object
Office Clipboard...
Paste
Paste as Hyperlink
Paste Special...
Redo
Replace...
Undo

New! Excel User Group Now Open @ www.excelusergroup.org, Check It Out!


Menu command Type What happens next?
Find... ...

Finds data in cells or formulas on the active sheet or in Excel 2003 across all sheets in the workbook. Also in this version you can find certain formulas or data in comments, by pressing the 'Options>>' button in the 'find' dialog, or cells with certain formats by using the 'Format... button. Selecting this option presents the standard cells formatting dialog, but you also have the option to select a cell and take the 'searched format' from that. (Shown below, with Options<< shown)

VBA Sub UseFind()
'Find returns a range object
Dim rFoundCell As Range
'If not found display message box
If Range("A1:A100").Find("Nick", , xlValues) Is Nothing Then
MsgBox "Nothing found", vbOKOnly
Exit Sub
End If
Set rFoundCell = Range("A1:A100").Find("Nick", , xlValues)
'When found show message box with address found
MsgBox "Data found in " & rFoundCell.Address,vbOkOnly
End Sub

Top

Copyright Nick Hodge 2008. All Rights Reserved.