Tabbladen Hernoemen met VBA

[OSPro]

Ik zou graag het tabblad van mijn exel sheet veranderen in de tekst die in een cel staat op dit blad.
Ik kan niet vinden hoe ik dit met VBA doe. Is dit wel mogelijk?

 

[Jan van Asseldonk]

met

ActiveSheet.Name = Range("B5").Value

krijgt je tabblad de naam die in B5 staat.

 

[kcirtap]

Sub tabbladnamen()
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Name = Sheets(1).Columns(1).Cells(i)
Next
End Sub