как произвести поиск в другой открытой книге?

[ShamanK]

подскажите пожалуйста:

есть книга robot.xls
методом ВБА он открывает книгу order.xlsm

Public xl As Application, xl1 As Application

Sub openwind()
Dim newWB As Workbook, Name As String, newWB1 As Workbook, Name1 As String

Set xl = New Application
Set xl1 = New Application

Name = "C:\robot\orders.xlsm"
Set newWB = xl.Workbooks.Open(Name)
With xl.Application
.Visible = True
.Top = 0: .Left = 663: .Width = 300: .Height = 220
End With

End Sub

как произвести поиск во вновь открытой книге?
к примеру у меня есть некий тикер акции
необходимо чтобы скрипт произвел поиск данного тикера в книге orders.xlsm и выдал результат - либо есть, либо нет.

к самой книге обращаюсь так:

Sub CopyZnach(ByRef c As Integer, ap As Application) 'Target, xl

Dim sh As Worksheet ', wksh1 As Worksheet

Set sh = ap.ActiveWorkbook.ActiveSheet

arr = Cells(c, 3).Value
sh.Range("i" & sh.Rows.Count).End(xlUp).Offset(1). Value = Now
sh.Range("b" & sh.Rows.Count).End(xlUp).Offset(1). Value = arr

xl.ActiveWindow.Activate
End Sub

[SAS888]

Проверить, есть ли искомое значение в открытой книге "order.xlsm", можно так:

Sub Main()
    Dim ws As Worksheet, x As Range
    For Each ws In Workbooks("orders.xlsm").Worksheets
        Set x = ws.Cells.Find(what:="тикер_акции", LookAt:=xlWhole)
        If Not x Is Nothing Then Exit For
    Next
    If x Is Nothing Then MsgBox "Искомое значение отсутствует." Else _
        MsgBox "Значение найдено на листе " & ws.Name & " в ячейке " & x.Address
End Sub