applied_patches/0449-vba-fix-worksheet-add-activate.diff

   1 diff --git sc/source/ui/vba/vbaworksheets.cxx sc/source/ui/vba/vbaworksheets.cxx
   2 index f2c0312..a927236 100644
   3 --- sc/source/ui/vba/vbaworksheets.cxx
   4 +++ sc/source/ui/vba/vbaworksheets.cxx
   5 @@ -252,7 +265,9 @@ ScVbaWorksheets::Add( const uno::Any& Before, const uno::Any& After,
   6                 m_xSheets->insertNewByName(aStringName, nSheetIndex + i);
   7                 result = getItemByStringIndex( aStringName );
   8         }
   9 -
  10 +       uno::Reference< excel::XWorksheet > xNewSheet( result, uno::UNO_QUERY );
  11 +       if ( xNewSheet.is() )
  12 +               xNewSheet->Activate();
  13         return  result;
  14  }
  15