Thanks SamT for your reply; Kindly note that i'm not a developer like you (an Expert) and my information is very limited on that matters so can you plz help me how to do your 2 suggestions:

Move the Select Case to a Function, but rewrite the Case's like
Then your loop