Don't select the entire column, just the cell at the top.

Range("A1").Select
Application.Dialogs(xlDialogFormulaFind).Show

Mike F

"Richard Hocking" wrote in
message ...
Hi all,

I'm currently using the code below to find specific data in a column in a
sheet. However, although it finds correctly, the whole column remains
highlighted which can make it difficult to see the cell found. Is there
some
extra code I could add to highlight temporarily the cell found?

Columns(1).Select
Application.Dialogs(xlDialogFormulaFind).Show

Any suggestions much appreciated,

Richard.