setting ranges 1

[Luis939]

Hello All,

I can use the following code to set a range where I look to see if a string is within another workbook

Set rcell = Workbooks("WestArea2003.xls&quot.ActiveSheet.Range("B:B&quot.Find(what:=blah, lookat:=xlPart, searchorder:=xlColumns)

Then i can say If rcell Is Nothing Then...
Else....

But now that i try to use the same thing to see if a worksheet is within a workbook, it doesnt work

Set rcell = Workbooks("WestArea2003.xls&quot.Worksheets("Nonexistant worksheet&quot

So is there anyway to apply the same principle to set a worksheet as a range and then test to see if it is Nothing or Not Nothing, thanks!

 

[Zathras]

Close, but not quite. Try this:
[blue]

Sub test()
Dim oSheet As Worksheet
  On Error Resume Next
  Set oSheet = Workbooks("WestArea2003.xls").Worksheets("Nonexistant worksheet")
  If oSheet Is Nothing Then
    MsgBox "no such sheet"
  End If
End Sub

[/color]

 

[Luis939]

THAT'S SWEEET AND SMART TOO, YOUR GETTING A STAR FOR THAT!!!