I have just written a cunning little routine that finds Cells which have certain data..This is it:
CODE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo errSub:
Dim strSearch As String
strSearch = InputBox("What Property? ", "Find a Property or Owner ")
'Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows).Activate
Cells.Find(What:=strSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'MsgBox Target.Address
errSub:
If Err.Number = 91 Or Err.Number = 13 Then
MsgBox "Not found...Try again", , "Co Name"
Exit Sub
End If
End Sub
On Error GoTo errSub:
Dim strSearch As String
strSearch = InputBox("What Property? ", "Find a Property or Owner ")
'Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows).Activate
Cells.Find(What:=strSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'MsgBox Target.Address
errSub:
If Err.Number = 91 Or Err.Number = 13 Then
MsgBox "Not found...Try again", , "Co Name"
Exit Sub
End If
End Sub
This works really well but (and this is the Question) I have 12 sheets that I want to apply it to...so is there some way I can use it 'globally' and call it also 'globally' from each worksheet?
Many thanks in advance!