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

Help please....
 

change these

tempx.Worksheets("master").Activate
Set c = xlApp.Worksheets("master").Find("(555)111-
2222",
LookIn:=xlValues)

to

SET xlSheet = tempx.Worksheets("master")
Set c = xlSheet.Cells..Find("(555)111-2222", _
LookIn:=xlValues)

Patrick Molloy
Microsoft Excel MVP

-----Original Message-----
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


.

Help please....
 

Set c = xlSheet.Cells..Find("(555)111-2222", _
LookIn:=xlValues)

should only have one full stop/period between cells and find

Set c = xlSheet.Cells.Find("(555)111-2222", _
LookIn:=xlValues)

--
Regards,
Tom Ogilvy

Patrick Molloy wrote in message
...
change these

tempx.Worksheets("master").Activate
Set c = xlApp.Worksheets("master").Find("(555)111-
2222",
LookIn:=xlValues)

to

SET xlSheet = tempx.Worksheets("master")
Set c = xlSheet.Cells..Find("(555)111-2222", _
LookIn:=xlValues)

Patrick Molloy
Microsoft Excel MVP

-----Original Message-----
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


.