I wanted to get the value of each named cell. I started with the code below.
Its able to list cells with names but does not show the correct value. In the variable `n.value` I get a reference such as `=Orders!$G$8`, whereas I was expecting $25 because $25 is what the cell really contains.

**The question is:**

How to get the value contained using the "Names" collection in the for loop?

**Code:**

```
Sub ListVarsWithValue()
    Dim n As Name
    Dim Count As Integer
    Dim s As String
    s=""
    For Each n In ActiveWorkbook.Names
        s = s +  n.Name + "=" + n.Value + chr(10) '<-- n.value not OK
    Next n
    MsgBox s
End Sub

```