"Find" Macro error

[tmanger]

Hello all,

I have a small macro that helps the user search a database of food items for a calorie diary. This is my problem: it works fine for my machine at home running Excel 2000, but hangs with an error message (Run time error 1004) on my computer at work running Excel 2002.

This is the code:

Private Sub SearchFDbase1_Click()
Worksheets("Food Database").Activate
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Ironically, if I remove the "Cells.Select" line, it runs fine on Excel 2002. Should I use "On Error Resume Next"?

As an aside, when I run the macro in Excel 2000 without the "Cells.Select" it runs, but the "Find" form is unable to search the database sheet.

Thanks in advance.

Tom.

 

[SIXTH SENSE]

hi!
maybe select only cell with entry.

 

[SIXTH SENSE]

hi!
something like this.

Selection.SpecialCells(xlCellTypeLastCell).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Select

 

[tmanger]

I need to search many cells. I have tried entering the range (A1:N12000) but I get a similar error.

if I use

Selection.SpecialCells(xlCellTypeLastCell).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Select

I still seem to get a run time error.

The On Error Resume Next statement works, but I hate to use so liberally.

Tom.

 

[Juan Pablo González]

Does the Find work ok in 2002 with the On Error Resume Next ?

If so, then my advice, don't bang your head with that anymore... sometimes Excel (and VBA) can be, mhm..., stubborn.

 

[SIXTH SENSE]

hi!
it works on my xcel2000.
it has selected A1 to the last cell with value.
I dont know about 2002.

 

[SIXTH SENSE]

hi!
one more try.
on xcel press F5, special cells and tick last cell if whats the last
cell.

 

[tmanger]

I appreciate the suggestions, I'll give them a try. Perhaps referring to the range as a name will allow the workaround.

Tom.