![]() ![]() ' Fail safe exit when no matching value is found. ![]() ' Print diagnostic value to determine what's evaluated. Do Until lookupRange.Cells(lookupIndex, 1).Value = lookupWord ' Loop until found, but exit when not found. ' Print starting and ending index values. Dim lookupIndex As Integer Dim lookupMax As Integer Dim returnValue As Integer ' Assign values to variables. Function Finding(lookupWord As String, lookupRange As Range, lookupColumn As Integer) As Integer ' Define variables. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |