I am having an issue with the Case vbNo where I am trying to find the next "c" in the rangename "R_Names". I can find the first item but if it is not what I'm looking for I want to select the "NO" button from the message box which will then bring be to the next "c" and etc..
Var1 = ActiveCell
Do Until IsEmpty(ActiveCell)
With ThisWorkbook.Sheets("Unique_Users").Range("R_Names ")
Set c = .Find(Var1, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
Subscribe to our Windows Secrets Newsletter - It's Free!
Get our unique weekly Newsletter with tips and techniques, how to's and critical updates on Windows 7, Windows 8, Windows XP, Firefox, Internet Explorer, Google, etc. Join our 480,000 subscribers!
+ Get this BONUS — free!
Get the most of Excel! Learn about new features, basics of creating a new spreadsheet and using the infamous Ribbon in the first chapter of Excel 2013: The Missing Manual - Subscribe and download Chapter 1 for free!