Best General Add-In Challenge

[Mark O'Brien]

After the 100th person asked me about the #NAME? errors I had to just start including it in every workbook.

If it were up to me, this may be the winner. If it was converted to an add-in. :D

You may want to force a Calculation as well, just in case.

 

[lenze]

Here's my belated entry...


Private Sub Workbook_Open()
If Not AddIns("Analysis ToolPak").Installed Then
MsgBox "You're a freakin idiot!"
AddIns("Analysis ToolPak").Installed = True
AddIns("Analysis ToolPak - VBA").Installed = True
End If
End Sub


After the 100th person asked me about the #NAME? errors I had to just start including it in every workbook.

Yes Aaron, I had the same problem with users who did not install the MS Query Add-in and the ODBC Driver Add-in. I would create great queries and place them on the share drive, and would get numerous complaints that they did not work. I used

<font face=Courier New><SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> Workbook_Open()
<SPAN style="color:darkblue">If</SPAN> Application.AddIns("MS Query Add-in").Installed = <SPAN style="color:darkblue">False</SPAN> <SPAN style="color:darkblue">Then</SPAN>
    AddIns("MS Query Add-in").Installed = <SPAN style="color:darkblue">True</SPAN>
    <SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">If</SPAN>
    <SPAN style="color:darkblue">If</SPAN> Application.AddIns("ODBC Add-in").Installed = <SPAN style="color:darkblue">False</SPAN> <SPAN style="color:darkblue">Then</SPAN>
    AddIns("ODBC Add-in").Installed = <SPAN style="color:darkblue">True</SPAN>
    <SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">If</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN>
</FONT>


I must admit, the "You are an idiot" message is classic, although most of my users are instructionally challenged(i.e.Upper Management)

 

[IOANNIS]

If You want to find the #NAME?


Public Sub Forum_Open()

Dim User as Forum.Memberlist

For Each User in Forum.Memberlist.Count
If User.Location="West Palm Beach, Florida" Then
MsgBox "freakin idiot Found!"
MsgBox "freakin idiot Name is=" & User.Name
Exit For
End if
Next User

End sub

 

[Aaron Blood]

If You want to find the #NAME?


Public Sub Forum_Open()

Dim User as Forum.Memberlist

For Each User in Forum.Memberlist.Count
If User.Location="West Palm Beach, Florida" Then
MsgBox "freakin idiot Found!"
MsgBox "freakin idiot Name is=" & User.Name
Exit For
End if
Next User

End sub

It was just a joke.
I'll assume that as an attempt at the same...

 

[IOANNIS]

If You want to find the #NAME?


Public Sub Forum_Open()

Dim User as Forum.Memberlist

For Each User in Forum.Memberlist.Count
If User.Location="West Palm Beach, Florida" Then
MsgBox "freakin idiot Found!"
MsgBox "freakin idiot Name is=" & User.Name
Exit For
End if
Next User

End sub

It was just a joke.
I'll assume that as an attempt at the same...

just a joke

 

[Aaron Blood]

I figured you were joking...

I mean anyone who would use their )( as an IO port has to have a decent sense of humor.

(I know, I have no business poking fun at someone's name. BUTT I just couldn't resist.)

 

[IOANNIS]

...

..we have nothing to share ... except Macros & Jokes ...

 

[Aaron Blood]

I'm afraid I only have jokes...

 

[Todd Bardoni]

Hey, hey, hey...relax...they don't have to do anything at all. So, let's just appreciate what they do...

And no one better call be a brown-noser! Otherwise...

The opportunity is too good to miss
YA BROWN NOSING, BOOT LICKING, *** KISSING, LOWER THAN A SNAKES BELLY CRAWLING LAPDOG

Well. That's just not nice.

 

[Sourdust]

Sorry TB ary: . It was him ----------->