"{CTRL+SHIFT+ENTER}"
"Easy as Pie-Chart"
(stealing idea from someone's sig on the forums)
"I don't do Charts, Pivot Tables, or debug long formulas. Not because I can't, but because I don't like to."
(stealing from Lewiy's post in pointless functions thread)
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Find_Keys()<br><SPAN style="color:#00007F">Dim</SPAN> Pockets <SPAN style="color:#00007F">As</SPAN> Range, Keys <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Set</SPAN> Pockets = Range(Jacket.Pockets, Jeans.Pockets)<br><SPAN style="color:#00007F">Set</SPAN> Keys = location(Keys)<br><SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Intersect(Pockets, Keys) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br> CarKeys.Found = <SPAN style="color:#00007F">True</SPAN><br> <SPAN style="color:#00007F">Else</SPAN><br> CarKeys.Found = <SPAN style="color:#00007F">False</SPAN><br> Mobile.Dial(vbTaxi) Destination:= Office<br> <SPAN style="color:#00007F">Exit</SPAN> Home<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>