It works!!! I'm soooo glad for people like you that have the patience and
expertise to help others!!!
--
Thank you... Elaine


"JE McGimpsey" wrote:

You shouldn't have the

Sub Custom_Find_Dialog()

line. In fact, what you've shown *should* give you a compile error.

Make sure that the Workbook_Open() macro is in the ThisWorkbook module,
not a regular code module.



In article ,
Elaine wrote:

This is what I have in the Personal Workbook and it does not work for me.
What am I doing wrong?
------------------------------------------------------------------------------
Sub Custom_Find_Dialog()
'
' Custom_Find_Dialog Macro
'

'
Private Sub Workbook_Open()
Worksheets(1).Cells.Find What:=vbNullString, _
LookIn:=xlValues, SearchOrder:=xlByColumns
End Sub
------------------------------------------------------------------------
--
Thank you so much for your help... Elaine


"JE McGimpsey" wrote:

One way:

Put this in the ThisWorkbook code module of your Personal.xls workbook:

Private Sub Workbook_Open()
Worksheets(1).Cells.Find What:=vbNullString, _
LookIn:=xlValues, SearchOrder:=xlByColumns
End Sub

Note that the Find dialog retains the settings of previous finds, so the
new "defaults" won't come up if you do a search by rows and look in
formulas.



In article ,
Elaine wrote:

I want a macro that will change the default setting in the Find or Find
and
Replace dialog box to search by "columns" instead of rows, and look in
"values" instead of formulas.

I'm glad all of you are there to help people like me.