werkbladen naam geven op basis van variabele input per blad

[brandernl]

Ik heb een werkboek met 4 bladen (en 1 verborgen).
Ik wil de bladen een naam geven op basis van gegevens op elk blad met deze code

Private Sub BladNaam_Variant()
'geeft werkbladen naam op basis van verschillende input
    Dim Van As String
    Dim Tot As String
    Dim ws As Worksheet
    Dim Begin As String
    Dim Eind As String
    
    Begin = InputBox("welke cel bevat de begindatum?", "begindatum")

    For Each ws In ThisWorkbook.Worksheets
        Eind = Range(Begin).End(xlToRight).Address
        Van = Format(ws.Range(Begin), "dd mmm")
        Tot = Format(ws.Range(Eind), "dd mmm")
        ws.Name = Van & " tm " & Tot
    Next ws
End Sub

de variabele Begin pakt netjes cel e6, zoals ingegeven in de inputbox, de variabele Eind verschilt per blad, maar toch neemt hij steeds het adres van het eerste blad ($CP$6)
Ik zie iets over het hoofd, maar wat?(na een avond puzzelen)

 

[pasan]

Probeer deze is

Private Sub BladNaam_Variant()
'geeft werkbladen naam op basis van verschillende input
    Dim Van As String
    Dim Tot As String
    Dim Begin As String
    Dim Eind As String
    Dim a As Integer
    Begin = InputBox("welke cel bevat de begindatum?", "begindatum")

    For a = 1 To ThisWorkbook.Worksheets.Count
    With Worksheets(a)
        Eind = .Range(Begin).End(xlToRight).Address
        Van = Format(.Range(Begin), "dd mmm")
        Tot = Format(.Range(Eind), "dd mmm")
        .Name = Van & " tm " & Tot
        End With
    Next a
End Sub

 

[jolivanes]

Probeer dit eens.

Eind = [I][/I][B]ws.[/B]Range(Begin).End(xlToRight).Address

 

[brandernl]

allebei goed; dank en weer wat geleerd