Workbook vs worksheet

[mrmrf]

I know this will be obvious, but has stumped me... Trying to adapt the below code to apply for an entire workbook rather than just the active sheet.... Thanks.

[LEFT][COLOR=#0a0101][FONT=Consolas]Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub<strike></strike>
[/FONT][/COLOR][/LEFT]

 

[Jaafar Tribak]

May be this :

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    Dim sh As Worksheet
    
    On Error Resume Next    
    For Each sh In ThisWorkbook.Worksheets
        sh.Buttons.Delete
        For Each xOLE In sh.OLEObjects
            If TypeName(xOLE.Object) = "CommandButton" Then
                xOLE.Delete
            End If
        Next xOLE
    Next sh
End Sub