Error Despite Error Statement

[Bill_Biggs]

I have the following snippet of code:

<font face=Courier New><SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Alpha<br>LstRw = Cells.Find(What:=(B), After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlNext).Row<br></FONT>


Now when B is not found, which is supposed to B a common occurence, it is supposed to goto a different section of the macro. Instead, I am getting the error statement "object variable not set." B is a variant and is established early in the macro. Anybody got any ideas?

 

[Norie]

Bill

If got an idea - don't use On Error or GoTo.

Set Found = Cells.Find(What:=(B), After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlNext)
 
If Not Found Is Nothing Then
  LstRow = Found.Row
  ' rest of code
Else
  MsgBox "B not found."
End If

 

[Bill_Biggs]

Its not working. Now if it does not find a term it simply sails through the codes and errs later in the macro. I really need to stick to the "On Error Goto" theme. Also, I need the LstRow to be assigned a value based on find if it is in the search area. With that in mind, can you help me with this?

 

[Norie]

Bill

Pretty hard to help without seeing the rest of the code.

 

[Bill_Biggs]

It is spaghetti code and over 50 lines of macro. I know how you feel about spaghetti code. Are you willing to look it over or should I just post again? The suspence is killing me!

 

[VoG]

Try this, although I don't like GoTos

Dim Found As Range
Set Found = Cells.Find(What:=(B), After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Found Is Nothing Then GoTo Alpha
LstRw = Found.Row

 

[Bill_Biggs]

I know. I don't like them either but once I learned enough VBA to make a living with it, there has been little time to learn more. Thanks for the extra help. Thank you to Norie, it makes sense now.