1. select the cell with the desired value
2. run this small macro:
Sub findum()
Dim v As Variant
v = ActiveCell.Value
Dim rfind As Range
Set rfind = Nothing
For Each r In ActiveSheet.UsedRange
If r.Value = v Then
If rfind Is Nothing Then
Set rfind = r
Else
Set rfind = Union(rfind, r)
End If
End If
Next
rfind.Select
End Sub
all cells with the desired value will be Selected.
Macros are very easy to install and use:
1. ALT-F11 brings up the VBE window
2. ALT-I
ALT-M opens a fresh module
3. paste the stuff in and close the VBE window
If you save the workbook, the macro will be saved with it.
To remove the macro:
1. bring up the VBE window as above
2. clear the code out
3. close the VBE window
You can also key-in Ctrl+A at this point to select all the items in the list
(you can do this immediately after hitting the Find All button as the focus
is already in the list it produced).
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.