Naam alle Worksheets tot sheet

[maartenmars]

Ik zoek een macro die elke sheet langs gaat (aantal sheets is variabel), elke sheet naar de cel C8 noemt in de betreffende cel, maar wanneer hij bij de sheet "comments" is, moet hij stoppen. Die sheet moet hij ook niet meer hernoemen. Iemand enig idee hoe dit kan?

 

[wampier]

Dim sh As Object

For Each sh In Sheets
    If sh.Name <> "comments" Then
        sh.Name = sh.[c8]
    Else
        Exit For
    End If
Next sh

 

[maartenmars]

Sub NameSheets()
Dim sh As Object

For Each sh In Sheets
If sh.Name <> "comments" Then
sh.Name = sh.[c8]
Else
Exit For
End If
Next sh
End Sub

resulteerd in een foutmelding

 

[wampier]

Welke dan? Hij is getest en werkt prima bij mij.

Het enige wat fout kan gaan is als C8 een waarde bevat die illegaal is voor de sheetnaam. Zoals een lege cel, of leestekens die niet in een tabblad mogen. je krijgt dan waarschijnlijk een 1004 error

Zo sla je illegale pagina's over:

Dim sh As Object

For Each sh In Sheets
    If sh.Name <> "comments" Then
        On Error Resume Next
        sh.Name = sh.[c8]
    Else
        Exit For
    End If
Next sh

 

[maartenmars]

Zou je die dan misschien op kunnen slaan in een excel document, want hij geeft geen foutmelding, maar hij verandert ook geen enkele sheet naam

 

[wampier]

Je zet de code in een aparte module neem ik aan? Ik wil het graag omdraaien, misschien kun je een klein voorbeeldje toevoegen? Ik heb het zojuist nogmaals getest en zolang "C8" gevuld is met een legale naam wordt de macro correct uitgevoerd (excel 2007)

 

[maartenmars]

Ik deed wat fout, nu gaat de macro deels goed, hij verandert de namen, maar de macro stopt niet bij de sheet Comments???

Bekijk bijlage Name Till Comments.xlsm

 

[wampier]

De sheet heet "Comments" niet "comments". Daar gaat het fout

Hoofdlettertje is in dit geval wel belangrijk