sheetnaam = celinhoud

[loe]

Ik wil graag dat de naam van tabbladen gelijk wordt aan die van vaste cellen, bijvoorbeeld A1.

Een cel de inhoud geven van de naam van de tab is geen probleem, gaat juist om de andere kant op.

[alpha]

Dat kan bv. door het uitvoeren van deze macro:

Sub macro1()
Dim x As Integer
For x = 1 To ThisWorkbook.Sheets.Count
With Sheets(x).Range("A1")
If .Value <> 0 Then
Sheets(x).Name = .Value
End If
End With
Next x
End Sub

[loe]

1 uur geleden, alpha zei:

Dat kan bv. door het uitvoeren van deze macro:

Fijn, werkt prima, met aanpassing ook in Thisworkbook.\

Bedankt

Sub macro1()
Dim x As Integer
For x = 1 To ThisWorkbook.Sheets.Count
With Sheets(x).Range("A1")
If .Value <> 0 Then
Sheets(x).Name = .Value
End If
End With
Next x
End Sub