Evaluate each named range vba

[jaryszek]

Hi,

i am using code like this:

    For Each n In wbMain.Names
    
        If InStr(n.Name, "Vn_") > 0 Then
    
            If InStr(n.Name, "!") > 0 Then
                result1 = InStr(n.Name, "!")
                result2 = Len(n.Name) - result1
                resultEnd = Right(n.Name, result2)
            Else
                resultEnd = n.Name
            End If
    
            If Not dicMain.exists(resultEnd) Then
            
            TxtVariable = Join(Array(Range(n).Value, n), Chr(2))
        
    dicMain.Add resultEnd, TxtVariable
            
            Else
                'do nothing
            End If
            
        End If
    
    Next n
    
End With

but problem is when i have:

=Servers!$F$17+Servers!$F$10

as range(n).value.

How to compute this? Or get only result of this?

and other value is :
Screenshot_18.png

Best,:
Jacek