Hmmm... from all the misdirection I am assuming that a "MrExcel MVP" is in reality a secret club that you have to gain access to through some secret handshake, sign, or... wait! Maybe its a bit of Excel code posted to this forum! Here goes!
You also get awarded the MrExcel MVP for being particularly handsome. Greg got it 'cos he's helpful though...
Hmmm... from all the misdirection I am assuming that a "MrExcel MVP" is in reality a secret club that you have to gain access to through some secret handshake, sign, or... wait! Maybe its a bit of Excel code posted to this forum! Here goes!
Code:If Intersect("MrExcel Message Board Forum","Handsome Excel God") = True then MrExcelBoardRank = "MrExcel MVP"
JM,
Thanks for your excellent response. That was exactly what I was looking for. Didn't find that thread when I did my initial search on this subject, or else I would have never started us down this route!
Owen
If Intersect("MrExcel Message Board Forum","Handsome Excel God") = True then MrExcelBoardRank = "MrExcel MVP"
Darn, didn't work. How in the world did this board know I wasn't an Excel God?
-Owen
Enum mrxlHelpLevels
xlNewbie
xlBoardRegular
xlNotInept
xlGettingThere
xlOneGoldStar
xlCanTellButtFromHoleInGround
xlTwoWeeStars
xlActuallyHelpful
xlQuiteHelpful
xlVeryHelpful
xlAladin = 99
End Enum
...
If Not Intersect(Range("MrExcelMessageBoard"), Range("HandsomeExcelGods")) Is Nothing _
Or Me.Helpfulness >= mrxlHelpLevels.xlVeryHelpful Then
Me.BoardRanking = mrxlRankings.xlMVP
collMrExcelMVPs.Add Item:=Me.Name, Key:=Me.BoardID
End If