Tabblad zelfde naam als bepaalde cel

[Tarja8]

Goedenavond experts!

Weten jullie of het mogelijk is om een tabblad dezelfde naam te geven als een cel op dat blad?

Volgens mij heb ik dat wel eens gezien.

Alsvast bedankt voor de evt. reaktie!

Groet,
Tarja

 

[Ad Becude]

Hier gaat het mee lukken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strNaam As String
strNaam = Range("A1").Value
ActiveSheet.Name = strNaam
End Sub

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] <> "" Then ActiveSheet.Name = [A1]
End Sub

Met vriendelijke groet,


Roncancio