Visual Basic editor "luistert" niet naar mij

[herus]

Een paar weken geleden jullie hulp gevraagd met twee problemen; tablad hernoemen naar cel en de rijen leegmaken waarvan de 1ste cel leeg is.
Het programma werkt perfect:

Sub RenameTabsHandlingNulls()

For i = 1 To Sheets.Count
'eerste code uitvoeren
With Sheets(i)
tot = .Range("A2").CurrentRegion.Rows.Count + 1
For r = 2 To tot
If .Cells(r, 1) = "" Then .Rows(r).Hidden = True
Next r

If .Range("B41").Value <> "" Then
.Name = Worksheets(i).Range("B41").Value
Else:
.Name = "Default (" & i & ")"
End If
End With
Next
End Sub


Echter als er meer dan 25 sheets zijn stopt het geheel terwijl er toch Sheet.Count instaat. Lig het toch aan mij???? en is mijn titel onjuist??

Henk

 

[herus]

sorry probleem opgelost. Net nadat ik jullie mail kom ik erachter dat twee tabbladen dezelfde naam zouden moeten hebben