Warning if using find function over selected range

**Jack Bauer** · 06-08-2009, 01:10 PM

Hi, is there any way to get a warning message to pop up if you are using the find function over a selected range rather than the entire sheet?

**shg** · 06-08-2009, 02:02 PM

Welcome to the forum, Jack.

No.

**Jack Bauer** · 06-09-2009, 04:07 AM

Ahh, thanks.

**Andy Pope** · 06-09-2009, 04:41 AM

If you write code you can.

Sub MyFind()
'
' assign this routine to CTRL+f
'
' application.OnKey "^f" , "MyFind"
'
    If TypeOf Selection Is Range Then
        If Selection.Cells.Count > 1 Then
            MsgBox "About to use Find within range " & Selection.Address & " only"
        End If
    End If
    Application.CommandBars.FindControl(ID:=1849).Execute
    
End Sub