Add toolbar to sheet

Question

I'm trying to add a toolbar control on a sheet.

I get this error.

It does add the toolbar, but that error is not skippable with On Error Resume Next, so it stops code from running.

Sub toolbar_Sheets_Add(wsTarget As Worksheet, sName As String, rWhereToCreate As Range)
    Dim T As OLEObject
    'On Error Resume Next
    Set T = wsTarget.OLEObjects.add(ClassType:="MSComctlLib.Toolbar.2", Left:=rWhereToCreate.Left, Top:=rWhereToCreate.Top)
    'T.Verb Verb:=xlOpen
    On Error GoTo 0
    T.name = sName
End Sub