Excel Add-In Check

Routine to check if Add-In present on Workbook Open. Used to check if Analysis ToolPak present if using NETWORKDAYS function.

Public blAI As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If blAI = False Then

AddIns("Analysis ToolPak").Installed = False

End If

End Sub

Private Sub Workbook_Open()

If AddIns("Analysis ToolPak").Installed = False Then

blAI = False

AddIns("Analysis ToolPak").Installed = True

Else

blAI = True

End If

End Sub