Ah! Typical - just when I asked for help I find a
solution myself.

If Not rng Is Nothing Then
Application.Goto rng, True
response = MsgBox("Cancel search ? ", vbYesNo)
If response = 6 Then Exit Sub
End If

This seems to do the job. Thanks anyway!

Steve