Thread: Find the next Cell with interior color using Do Until...Loop
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
  
Posts: 11,058
Default Find the next Cell with interior color using Do Until...Loop
Sub ryan()
Set r = Range(ActiveCell.Address & ":B65536")
For Each rr In r
If rr.Interior.ColorIndex = 40 Then
MsgBox (rr.Row)
Exit Sub
End If
Next
End Sub

--
Gary''s Student - gsnu200772
Reply With QuoteReply With Quote