Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help please....
I have the following code and I get the following error"
Object variable or With block variable not set (Error 91) on the line: Set c = xlApp.Worksheets("master").Find("555)111-2222", LookIn:=xlValues) What is going one? I am calling this from OUTLOOK. Here is my code: Private Function WorkbookIsOpen1(wbname) As Boolean 'wbname will be passed once I get te resr working... Dim tempx As Object Dim c As Range Dim b As Range Dim xlSheet As Excel.Worksheet MsgBox " WorkbookIsOpen1" Set tempx = GetObject("C:\current.xls") MsgBox " WorkbookIsOpen1: " & Err If Err = 0 Then WorkbookIsOpen1 = True MsgBox "WorkbookIsOpen: " & WorkbookIsOpen1 tempx.Worksheets("master").Activate Set c = xlApp.Worksheets("master").Find("(555)111-2222", LookIn:=xlValues) If Not c Is Nothing Then MsgBox c.Offset(0, -3) Else MsgBox "Not found..." End If Else WorkbookIsOpen1 = False MsgBox "error: " & Err MsgBox "WorkbookIsOpen: " & WorkbookIsOpen1 End If End Function Thanks |