The code above is written to take care of Excel 2010 also....

However, if you were only using 2010, you wouldn't need the IF condition
Code:
Sub OLUIR(ribbon As IRibbonUI)

    On Error Resume Next
        ribbon.ActivateTab "TabAddIns" ' For Excel 2010

End Sub