Double click column to open find & replace box?

[Ironman]

Hi

Is it possible when I double click any cell from A2 down in Sheet 1 for the Find and Replace box to open?

Many thanks!

 

[jasonb75]

You will not believe how hard it is for me to resist the urge to answer with a simple 'yes' (well you only asked if it was possible, not how to do it, so technically...)

Drop this into the worksheet module and you're good to go.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Or Target.Column > 1 Then Exit Sub
    Cancel = True
    Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

 

[Ironman]

You will not believe how hard it is for me to resist the urge to answer with a simple 'yes'

Yeah, I did ask for that didn't I!

That's brilliant, works a treat, thanks a lot Jason.