Hoo-Boy got a nested one here. So I ran the code in question (immediate code below) on a test workbook and it worked just fine. In others words double clicking column B did not trigger it but double clicking column G did (as I believe it is supposed to) so I don't think that is your problem:
I then went through your supplied code and tracked down the If/End if's. If my count is correct you actually have an extra End If. That may or may not be causing the problem. See attached code with counts:
I then went through and tried to condense / insert a few select case where appropriate to try to break up the monotony. Try the code and see if it works for you:
Bookmarks