Looping through controls on a worksheet to set control icons

I am trying to loop through controls on a worksheet to set the mouse icon. It works fine on a form like this:

Sub SetFormControlCursors(form_name As UserForm, cursor_name As String)
    Dim z As Control
    For Each z In form_name.Controls
      If TypeName(z) = "CommandButton" Then
        z.MousePointer = fmMousePointerCustom
        z.MouseIcon = LoadPicture(cursor_name)
      End If
    Next z
End Sub

but adapted for a worksheet, nothing happens:

Sub SetSheetCursors(sheetName As String, cursor_name As String)
    Dim z As Shape
    Dim s As String
    Dim w1 As Worksheet: Set w1 = Sheets(sheetName)
    For Each z In Sheets(sheetName).Shapes
      If TypeName(z) = "CommandButton" Then
        z.MousePointer = fmMousePointerCustom
        z.MouseIcon = LoadPicture(cursor_name)
      End If
    Next z
End Sub

Any ideas why? The controls are Active X command buttons. Thanks!

It didn't work because they are Active X command buttons. The shape property is for Form controls. Note: The TypeName is not going to work as you had it. I put in a Debug.Print line so you can see what the type actually comes up as.

Sub SetSheetCursors(sheetName As String, cursor_name As String)
    Dim o As Object
    Dim s As String
    Dim w1 As Worksheet: Set w1 = Sheets(sheetName)
    For Each o In w1.OLEObjects
        Debug.Print TypeName(o) 'reports as OLEObject
        Debug.Print o.Name 'gives name of command button or other object in sheet
        If Not InStr(1, o.Name, "CommandButton") = 0 Then 'assuming all the commandbuttons are called CommandButtonX where X is a number
            'o.MousePointer = fmMousePointerCustom 'didn't test this portion out.  Not sure if it works
            'o.MouseIcon = LoadPicture(cursor_name) 'didn't test this portion out.  Not sure if it works
      End If
    Next o
End Sub

Thanks for the reply and the help, much appreciated. The two untested lines didn't work - they came up with "object doesn't support this property or method'. Also, the controls are not numbered - I've given them names, but they still have "CommandButton" in the name. I'll keep at it for a while...