Gedeeltelijke dynamische werkbladnaam

[hoogteijling]

Hallo allemaal,

Onderstaande code zorgt ervoor dat mijn werkbladnaam uit cel X1 gehaald wordt.
Wat ik graag zou willen is dat de code alleen het rechtergedeelte van de werkbladnaam aanpast (Jaartal).
De werkbladen zijn namelijk als volgt genaamd en het eerste gedeelte moet behouden blijven:
01-2015, 02-2015, etc.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Set Target = Range("X1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Kijk in cel X1." & Chr(13) _
    & "Hij bevat 1 of meerdere tekens " & Chr(13) _
    & "die niet toegestaan zijn." & Chr(13)
    Range("X1").Activate
End Sub

Groeten Marcel

 

[OctaFish]

Zoiets?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Set Target = Range("X1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    
    If InStr(Target, "-") = 0 Then
        GoTo Badname
    Else
        ActiveSheet.Name = Left(Target, InStrRev(Target, "-")) & (Year(Date) + 1)
    End If
    Exit Sub

Badname:
    MsgBox "Kijk in cel X1." & Chr(13) _
    & "Hij bevat 1 of meerdere tekens " & Chr(13) _
    & "die niet toegestaan zijn." & Chr(13)
    Range("X1").Activate
End Sub

 

[hoogteijling]

Bedankt OctaFish voor je reactie,

Bij werkt de code niet, telkens komt de message box tevoorschijn waarin staat dat we illegale tekens hebben gebruikt..

Ter verduidelijking heb ik het bestand waar het om gaat bijgevoegd.
Kort gezegd, ik wil het blad geschikt maken voor het volgende jaar door in 1 cel het jaartal te veranderen.
De formules in de cellen lukt me wel maar de rechtse 4 tekens van elke tabbladnaam koppelen aan de waarde van cel X1 krijg ik niet voor elkaar.

Groeten Marcel
Bekijk bijlage Verkoopboek 2015.xlsb

 

[OctaFish]

Als ik de code op blad 01-2015 loslaat, stopt-ie gelijk omdat er blijkbaar in X1 niks staat. En vanwege de beveiliging mag je daar ook niks inzetten, dus dan is het logisch dat je niet ver komt.

 

[hoogteijling]

Stom
Hoewel ik het had uitgetest in een bestand met onbeveiligde werkbladen en met X1 ingevuld.
Vast iets over het hoofd gezien.
Bij het geposte bestand met de beveiliging van de bladen afgehaald krijg ik het ook niet voor elkaar.
Wat doe ik verkeerd?

IK heb hem al werkend gekregen.
Bedankt.

Groeten Marcel