Euro Currency tool Utility issue

[somnath_it2006]

Hi All,

Today I found something strange in excel utility.
Below is the code from class module where I have used WithEvent and get the all worksheet events.

        Dim Cell As Range
        Dim Msg As String
        Dim TestCheck As Variant
        
        On Error Resume Next
        
        [COLOR="Red"]TestCheck = Target.Dependents.Cells.Address[/COLOR]
        
        If Err.Number <> 0 Then
            Exit Sub
        End If

Whenever I on the "Euro Currency Tool" utility from Add-Ins, above code does not works properly. It gives correct output from line "TestCheck = Target.Dependents.Cells.Address" but as well as generates the error code 9 (Subscript Out of Range).

If I off or uncheck the "Euro Currency Tool" from Add-Ins, then it works fine.


I don't know whats going on....

Please suggest.... because this code is the part of our company utility I have solve this.

 

[Andrew Poulsom]

This worked for me with and without the Euro Currency Tools:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim TestCheck As Variant
    Application.EnableEvents = False
    On Error Resume Next
    TestCheck = Target.Dependents.Address
    If Err.Number <> 0 Then
        GoTo Cleanup
    Else
        MsgBox TestCheck
    End If
Cleanup:
    Application.EnableEvents = True
End Sub

 

[somnath_it2006]

Yes... now its working when I am using with "Application.EnableEvents = False".

Could you please tell me how Application events affecting for this "Euro Tool" only?

Because, without "Euro Tool" no need to add this line...

 

[Andrew Poulsom]

I had to use it even without the Euro Currency Tools. For some reason the Dependents property wouldn't work otherwise.

 

[somnath_it2006]

OK...

Thank You...