Excel 2010 Menüband Aufruf von Registerkarten

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonOnLoad">  
    <ribbon>
        <tabs>
            <tab id="myTab1" label="myTab1">  
                <group id="grpTab1" label="Group1">  
                    <button id="btnTest1" imageMso="ImportExcel" label="TestButton" size="large" onAction="btnTest1_Click" />  
                </group>
            </tab>
 		<tab id="myTab2" label="myTab2">  
                <group id="grpTab2" label="Group1">  
                    <button id="btnTest2" imageMso="ImportExcel" label="TestButton" size="large" onAction="btnTest2_Click" />  
                </group>
            </tab>
		<tab id="myTab3" label="myTab3">  
                <group id="grpTab3" label="Group1">  
                    <button id="btnTest3" imageMso="ImportExcel" label="TestButton" size="large" onAction="btnTest3_Click" />  
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

'Öffentliche Variable für den Zugriff auf das Ribbon  
Public rib As IRibbonUI

'Callback das ausgeführt wenn das Workbook geladen wird  
Public Sub RibbonOnLoad(ByVal ribbon As IRibbonUI)
    Set rib = ribbon
End Sub

'Callback für Button auf Tab 1  
Public Sub btnTest1_Click(ByVal control As IRibbonControl)
    MsgBox "Das ist die callback procedure für Button 1"  
End Sub

'Callback für Button auf Tab 2  
Public Sub btnTest2_Click(ByVal control As IRibbonControl)
    MsgBox "Das ist die callback procedure für Button 2"  
End Sub

'Callback für Button auf Tab 3  
Public Sub btnTest3_Click(ByVal control As IRibbonControl)
    MsgBox "Das ist die callback procedure für Button 3"  
End Sub

Private Sub Worksheet_Activate()
    rib.ActivateTab "myTab1"  
End Sub