"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.
 
Top