diff --git a/oovbaapi/ooo/vba/excel/XName.idl b/oovbaapi/ooo/vba/excel/XName.idl
index dc6ba1c1ee09..d46dc14657d7 100644
--- a/oovbaapi/ooo/vba/excel/XName.idl
+++ b/oovbaapi/ooo/vba/excel/XName.idl
@@ -37,10 +37,10 @@ interface XName
     [attribute] string NameLocal;
     [attribute] boolean Visible;
     [attribute] string Value;
-    [attribute, readonly] string RefersTo;
-    [attribute, readonly] string RefersToLocal;
-    [attribute, readonly] string RefersToR1C1;
-    [attribute, readonly] string RefersToR1C1Local;
+    [attribute] string RefersTo;
+    [attribute] string RefersToLocal;
+    [attribute] string RefersToR1C1;
+    [attribute] string RefersToR1C1Local;
     [attribute, readonly] XRange RefersToRange;
 
     void Delete( );
diff --git a/sc/qa/extras/macros-test.cxx b/sc/qa/extras/macros-test.cxx
index 347db6539f98..68bed145ec51 100644
--- a/sc/qa/extras/macros-test.cxx
+++ b/sc/qa/extras/macros-test.cxx
@@ -179,6 +179,10 @@ void ScMacrosTest::testVba()
             OUString("Workbooks."),
             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
         },
+        {
+            OUString("Names."),
+            OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
+        },
     };
     OUString sTempDir;
     OUString sTempDirURL;
diff --git a/sc/qa/extras/testdocuments/Names.xls b/sc/qa/extras/testdocuments/Names.xls
new file mode 100755
index 000000000000..fcacf9bbdeed
Binary files /dev/null and b/sc/qa/extras/testdocuments/Names.xls differ