For Each .... Next Schleife

Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = "Bitte löschen!"
For Each wks In Worksheets
If wks.Name = "Diagramme" Then wks.Next
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlValue)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub

folgendes Problem, so wie es hier steht funktioniert es nicht,
und zwar ich möchte an der Stelle:
If wks.Name = "Diagramme" Then wks.Next
d.h. wenn er zum Worksheet "Diagramme" kommt soll er dieses Sheet überspringen und gleich am nächsten weiter machen, zum nächsten Tabellenblatt gehen. "wks.Next" funktioniert hier nicht
Wie kann man dieses Problem sonst lösen?

Gruss

Steffen