Worksheet Change not working. Add-In problem.

[mond007]

Hi

I am problem solving a scenario where worksheet change does not always work. There are two cells Function Group and Generic Group. The code works out the Generic Group drop-down list based upon what Function Group was selected. BUT this does not always work (i.e.re-calculate the drop down on the second field) depending upon different users. After quite some comparisons it seems there is an Add-In called "Analysis Tookpak" checked in the Add-Ins (references).

I think I need some VBA code that will add this automatically regardless of operating system ????

I have the following code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("CP_FG")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        
        Dim sCell As Range
        Set sCell = Worksheets("Control").Range("startCell")
    
        Call Create_CP_FG_list(Range("CP_FG").Value, KeyCells, sCell, "CP_FG_Range")
        Worksheets("Create Position").Activate
        
    End If
End Sub

Thanks in advance.

Kuldip

 

[Andrew Poulsom]

Is this what you want?

AddIns("Analysis ToolPak").Installed = True