Hi
I am using this code below to check if the addin is loaded it works fine on the English version of excel however I have several users using the same model with different language versions of excel. Does anyone have any suggestions on how i can make this code work on different langauage versions
TIA
Graeme
Option Explicit
Const strAddin As String = "Analysis ToolPak"
Private Sub Workbook_Open()
On Error Resume Next
If Application.AddIns(strAddin).Installed = False Then
Application.AddIns(strAddin).Installed = True
If Application.AddIns(strAddin).Installed = False Then
MsgBox "Excel Addin-'" & strAddin & "'." & Chr(13) & "Is required please Install it...", vbExclamation
End If
End If
On Error GoTo 0
Worksheets("control").Select
Range("a1").Select
End Sub