elgringo56
Well-known Member
- Joined
- Apr 15, 2002
- Messages
- 869
I have the following routine. In it I am looking for the first cell that contains the word NO ENTRY. The first time I find this value, I would like to leave this routine without doing the entire 10000 passes. Is there a way to do that?
For i = 1 To 10000
Select Case Range("BT3").Offset((i - 1), 0).Value
case Is = "ENTRY"
Range("BQ3").Offset((i - 1), 0).Select
Case Else
Range("BQ3").Offset((i - 1), 0).Select
Selection.ClearContents
End Select
Next i
For i = 1 To 10000
Select Case Range("BT3").Offset((i - 1), 0).Value
case Is = "ENTRY"
Range("BQ3").Offset((i - 1), 0).Select
Case Else
Range("BQ3").Offset((i - 1), 0).Select
Selection.ClearContents
End Select
Next i