Alle opmerkingen werkboek verwijderen

[jansbl]

Hallo,

Het is de bedoeling om alle opmerkingen van alle sheets uit het werkboek te verwijderen.
Van de site van Wigi heb ik een stuk code gebruikt.
Ik heb er zelf de loop aan toegevoegd.
En daar gaat het fout.

Als ik op een bepaalde sheet begin, worden daar de opmerkingen wel gewist, maar op andere sheets niet.
Alle sheets worden wel doorlopen.
Enig idee wat ik niet goed doe?

Sub VerwijderOpmerkingen()
'Verwijdert alle opmerkingen in het werkboek

Dim ws As Worksheet

    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets
        ws.Activate
        ActiveSheet.ClearComments
    Next
    
    Application.ScreenUpdating = True
End Sub

B.v.d.

Jans

 

[Wigi]

De lus zit goed Jans, probleem zat bij de ClearComments in mijn code. Die is enkel toepasbaar op een Range, op cellen dus die al dan niet opmerkingen bevatten.

Als ze geen opmerking bevatten, krijg je een foutmelding. De On Error Resume Next vangt de foutmelding af, maar helaas ook de fout in mijn syntax

Dit werkt wel:

Sub VerwijderOpmerkingen()
'Verwijdert alle opmerkingen in het werkboek

    Dim ws As Worksheet

    Application.ScreenUpdating = False
    
    On Error Resume Next
    
    For Each ws In ThisWorkbook.Sheets
        ws.[B]Cells[/B].ClearComments
    Next
    
    Application.ScreenUpdating = True
End Sub

De .Activate is niet nodig.

Bedankt om dit te melden, ik zal het een dezer dagen aanpassen op de site.

Wigi

 

[jansbl]

OK Wim,

Werkt prima :thumb:

Bedankt,

Jans