--- sc/source/ui/vba//vbaseriescollection.cxx	
+++ sc/source/ui/vba//vbaseriescollection.cxx
@@ -40,22 +40,8 @@
 using namespace ::com::sun::star;
 using namespace ::org::openoffice;
 
-uno::Reference< oo::excel::XApplication > 
-ScVbaSeriesCollection::getApplication() throw (uno::RuntimeException)
+ScVbaSeriesCollection::ScVbaSeriesCollection( const uno::Reference< vba::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext ) : SeriesCollection_BASE( xParent, xContext, uno::Reference< container::XIndexAccess>() ) 
 {
-	return ScVbaGlobals::getGlobalsImpl( m_xContext )->getApplication();
-}
-::sal_Int32
-ScVbaSeriesCollection::getCount() throw (uno::RuntimeException)
-{
-	return 0;
-}
-
-uno::Any
-ScVbaSeriesCollection::Item( const uno::Any& /*aIndex*/ ) throw (uno::RuntimeException)
-{
-	// #TODO #FIXME some implementation would be nice !!
-	return uno::Any();
 }
 
 // XEnumerationAccess
@@ -74,35 +60,29 @@ ScVbaSeriesCollection::getElementType() 
 {
 	return excel::XSeries::static_type(0);
 }
-::sal_Bool
-ScVbaSeriesCollection::hasElements() throw (uno::RuntimeException)
+
+uno::Any 
+ScVbaSeriesCollection::createCollectionObject( const css::uno::Any& rSource )
 {
-	// #TODO #TOFIX Really?, how can we say that!
-	// needs to delegate to xIndex
-	return sal_True;
+	return rSource;
 }
 
-uno::Any SAL_CALL 
-ScVbaSeriesCollection::getParent() throw (uno::RuntimeException)
+rtl::OUString& 
+ScVbaSeriesCollection::getServiceImplName()
 {
-	uno::Reference< excel::XApplication > xApplication =
-		getApplication();
-	uno::Reference< excel::XWorkbook > xWorkbook;
-	if ( xApplication.is() )
-	{
-		xWorkbook = xApplication->getActiveWorkbook();
-	}
-	return uno::Any( xWorkbook );
+	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaSeriesCollection") );
+	return sImplName;
 }
 
-sal_Int32 SAL_CALL 
-ScVbaSeriesCollection::getCreator() throw (uno::RuntimeException)
+css::uno::Sequence<rtl::OUString> 
+ScVbaSeriesCollection::getServiceNames()
 {
-	// #TODO# #FIXME# implementation?
-	return 0;
+	static uno::Sequence< rtl::OUString > sNames;
+	if ( sNames.getLength() == 0 )
+	{
+		sNames.realloc( 1 );
+		sNames[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("org.openoffice.excel.SeriesCollection") );
+	}
+	return sNames;
 }
 
-
-
-
-
