--- sc/source/ui/vba//vbacomments.cxx	
+++ sc/source/ui/vba//vbacomments.cxx
@@ -48,7 +48,8 @@ uno::Any AnnotationToComment( const uno:
 	uno::Reference< container::XChild > xChild( xAnno, uno::UNO_QUERY_THROW );
 	uno::Reference< table::XCellRange > xCellRange( xChild->getParent(), uno::UNO_QUERY_THROW );
 
-	return uno::makeAny( uno::Reference< excel::XComment > ( new ScVbaComment( xContext, xCellRange ) ) );
+	// #FIXME needs to find the correct Parent
+	return uno::makeAny( uno::Reference< excel::XComment > ( new ScVbaComment( uno::Reference< vba::XHelperInterface >(), xContext, xCellRange ) ) );
 }
 
 class CommentEnumeration : public EnumerationHelperImpl
@@ -63,8 +64,8 @@ public:
 
 };
 
-ScVbaComments::ScVbaComments( const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< container::XIndexAccess >& xIndexAccess  )
-: ScVbaComments_BASE( xContext, xIndexAccess )
+ScVbaComments::ScVbaComments( const uno::Reference< vba::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< container::XIndexAccess >& xIndexAccess  )
+: ScVbaComments_BASE( xParent, xContext, xIndexAccess )
 {
 }
 
@@ -75,13 +76,13 @@ ScVbaComments::createEnumeration() throw
 {
 	uno::Reference< container::XEnumerationAccess > xEnumAccess( m_xIndexAccess, uno::UNO_QUERY_THROW );
 
-	return new CommentEnumeration( m_xContext, xEnumAccess->createEnumeration() );
+	return new CommentEnumeration( mxContext, xEnumAccess->createEnumeration() );
 }
 
 uno::Any
 ScVbaComments::createCollectionObject( const css::uno::Any& aSource )
 {
-	return AnnotationToComment( aSource,  m_xContext );
+	return AnnotationToComment( aSource,  mxContext );
 }
 
 uno::Type 
@@ -90,3 +91,21 @@ ScVbaComments::getElementType() throw (u
 	return excel::XComments::static_type(0);
 }
 
+rtl::OUString& 
+ScVbaComments::getServiceImplName()
+{
+	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaComments") );
+	return sImplName;
+}
+
+css::uno::Sequence<rtl::OUString> 
+ScVbaComments::getServiceNames()
+{
+	static uno::Sequence< rtl::OUString > sNames;
+	if ( sNames.getLength() == 0 )
+	{
+		sNames.realloc( 1 );
+		sNames[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("org.openoffice.excel.Comments") );
+	}
+	return sNames;
+}
