Hello s2jrchoi,
You could shorten the loop code to this...
Another method would be to use the Like operator...
For x = 2 To lRow If InStr(1, rolesSheet.Cells(x, 1), eName) <> 0 Then Exit For Next x
For x = 2 To lRow ' Compare both in lower case to elimate case sensitivity If LCase(rolesSheet.Cells(x, 1)) Like LCase("*" & eName & "*") Then Exit For Next x
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks