"Find" Macro not working

R

Riz

Hi,

I have created a button in the excel spread sheet
for "Find" or "Search. This is the code:

Sub Find()
Range("A2:F37").Select
Cells.Find(What:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

It works fine for me, however when I send it out to
everyone else they are not able to make it work. It opens
the VB Code window. Is there something I can do to just
this spreadsheet so they dont have to change the macro
setting and the search button actaully searchs instead of
openeing the code window?

Thanks for youe help.
 

Ask a Question

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.

Ask a Question

Similar Threads

Find copy data from a cell in Personal workbook and copy it to a cellin current workbook 14
Run macro on all sheets 3
If Cells.Find returns run-time error '91': Object variableor With block variable not set 1
use Find without hardcoded value but a value from a cell 1
macro to select a range from a set cell to a specified cell 6
Getting Excel Find to Default to Searching Workbook not Sheet 3
Need a type of lookup / find formula PLEASE 6
Using While Wend with Cells.Find 1

Top