Naam werkblad deels gebruiken

[DeArie]

Goedemiddag,

Na hier weer eens aan het zoeken geweest te zijn, krijg ik niet helemaal gevonden wat ik zoek.

Ik wil graag in een cel K5 een deel van het werkbladnaam krijgen. Nu heb ik de volgende code al gevonden:

Sub Tabnaam()
'zet naam tabblad in cel K5
Dim naam
naam = Worksheets(2).Name ' (2) is tweede tabblad van een sheet
ActiveSheet.Range("K5") = naam
End Sub

Die zet alleen heel de naam in cel K5 maar het zouden alleen de eerste 6 letters/cijfers moeten zijn is dat mogelijk?

Ben wel de volgende formule tegen gekomen die eigenlijk wel de 6 eerste letters/cijfers pakt alleen dan van het eerste werkblad:

=DEEL(CEL("bestandsnaam";A1);VIND.ALLES("]";CEL("bestandsnaam";A1);1)+4;2)

Kan iemand me helpen of de juiste richting opsturen?

 

[JeanPaul28]

Sub Tabnaam()
'zet naam tabblad in cel K5
Dim naam
naam = Worksheets(2).Name ' (2) is tweede tabblad van een sheet
ActiveSheet.Range("K5") = mid(naam,1,6)
End Sub

 

[VenA]

Of

Sub Tabnaam()
  Range("K5") = Left(Sheets(2).Name, 6)
End Sub

 

[DeArie]

Beide Hartstikke bedankt! werkt perfect