Names RefersToRange property - VBA RT error

[Jon von der Heyden]

I'm baffled...

Both customer and I are on Excel 32bit. I am on 64bit Win7, customer is on 32bit.

Taking an excerpt of the code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngTarget As Excel.Range
    Dim rngCell As Excel.Range


    Set rngTarget = Target.Resize(1, 1)


    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        .EnableEvents = False
    End With


    With Me
        '-- View name change; populate the view description if the view already exists
        If rngTarget.Address = .Range(mstrREF_NAME).Address Then
            .Range(mstrREF_DESCRIPTION).Value = Replace$(CStr(Application.VLookup(.ViewName, ThisWorkbook.names(mstrREF_VIEWS).RefersToRange, 2, False)), _
                                                         "Error 2042", _
                                                         "")
        End If

Customer gets "Application or object defined error". No problems on my side.

mstrREF_NAME is a string that refers to worksheet scoped name. The name refers to a single cell.
mstrREF_DESCRIPTION is a string that refers to worksheet scoped name. The name refers to a single cell.
mstrREF_VIEWS is a string that refers to a workbook scoped name. This is a dynamic named range that refers to a 10R x 4C grid in a different worksheet

Any ideas people?

 

[justinrylie]

Actually, please ignore. I may have already solved it. Thanks guys you are the best!

 

[Revolution_72]

Hi,

Sorry to resurrect an old thread!!

I've just encountered this issue and narrowed it down to German language on certain user systems.

What's the workaround?

Ryan