Can't get macro to work

Posted by Simon R on January 23, 2002 7:10 AM

Set cell = .Find(compareID, LookIn:=xlValues)
***If cell = "" Then***
Worksheets("Report").Activate
ActiveCell(0, 1).Value = "Closed or Rejected"
ActiveCell.Offset(1, -1).Select
Else...

The statement with *** won't compile, basically i want it to excecute the closed or rejected value if the .find statement returns nothing. Thanks for help in advance.

Posted by Mark O on January 23, 2002 7:23 AM

Posted by Mark O'Brien on January 23, 2002 7:24 AM

Oops, somehow managed to send a post the first time while just typing my namer in. Anyway, try this line instead of the *** line:

If cell Is Nothing Then
...rest of your code.

Any problems, just repost.