Sheets met macro hernoemen

[hazesoft]

Goede morgen dames en heren,

Ik het mogelijk de tabbladen (sheets) van een XLS-bestand (124 sheets) met een macro automatisch te hernoemen in bv. FC1, FC2, FC3 enz.?
Het eerste blad moet echter, als het kan, zijn originele naam behouden.

 

[sylvester-ponte]

hallo Hazesoft

probeer dit eens:

Sub SheetNamenWijzigen()
    Dim S As Worksheet, T As Integer
    For T = 2 To Sheets.Count
        Sheets(T).Name = "FC" & T
    Next T
End Sub

groet sylvester

 

[hazesoft]

Dag Sylvester,

Hij doet het. Bedankt voor jouw snelle reactie!

Heb T trouwens gewijzigd in T-1 dus: Sheets(T).Name = "FC" & T - 1 .