So I am attempting to secure my sheet with some error capture on a certain cell A10, as this is where users are inputting search terms to filter out data to match their term.
I had a previous error return that would check their entry against every entry in the data sheet to see if there was any match, if not then return an error.
I am looking to do the same for if there is NO/NULL ENTRY in cell A10. Below is what I have tried but I cant seem to get it working.
''///Make 'x' the value of A10 (search parameter) x = Worksheets("search").Range("A10").Value ''///Use 'x' to then filter through data sheet Set chk = Worksheets("data").Range("A10").CurrentRegion.Columns(1).Cells.Find(x) ''///If no matches then return ERROR If chk Is Nothing Then MsgBox x & " is not in the database", vbCritical, "Try Again" Worksheets("search").Activate Exit Sub End If If IsEmpty(Range("A10")) Then MsgBox "Plesae enter a value.", vbCritical, "Null Entry" Exit Sub End If