Naam cel = naam sheet

[bloemenman]

Goedemorgen,

ik wil een code gebruiken om een tabblad te kopieeren. De naam van het nieuwe tabblad is de naam die ingevuld is bij de inputbox dit werkt verder goed.
Wat ik graag gewijzigd wil hebben is dat in het nieuwe tabblad de cel C3 dezelfde naam krijgt, dit werkt met deze code niet zoals ik het graag wil.

Kan iemand mij helpen?

Private Sub CommandButton4_Click()

    If Range("L3") = "" Then
    MsgBox "Je moet eerst invullen voor welke maand deze urenlijst is"
    Range("L3").Select
    Exit Sub
    End If

    StrSHname = InputBox("Vul hier voor en achternaam van in.")
    For Each sh In ThisWorkbook.Sheets
    If sh.Name = StrSHname Then
    MsgBox "Sheet bestaat al, probeer een andere naam."
    Exit Sub
    End If
    
    Next
    If Len(StrSHname) > 31 Then
    MsgBox "naam is te lang"
    Exit Sub
    End If
    
    Sheets("Start").Copy After:=Sheets(Sheets.Count)
    Sheets("Start (2)").CommandButton1.Visible = False
    Sheets("Start (2)").CommandButton2.Visible = False
    Sheets("Start (2)").CommandButton3.Visible = False
    Sheets("Start (2)").CommandButton4.Visible = False
    Sheets("Start (2)").TextBox1.Visible = False
    Sheets("Start (2)").Name = StrSHname
[C3] = StrSHname
    
     
End Sub

 

[edmoor]

Geef ook de naam van het blad mee. Bijvoorbeeld:
Sheets("Start (2)").Range("C3").Value = StrSHname

 

[bloemenman]

Ga ik direct proberen!

 

[bloemenman]

Ik krijg een foutmelding;

Fout 9 tijdens uitvoering
Het subscript valt buiten het bereik

kunt u me daarbij helpen?

 

[edmoor]

Niet zonder je routine te zien zoals hij nu is.

 

[bloemenman]

Goede avond,

heb het al gevonden! Moest slechts 2 regels omwisselen. Nu werkt hij perfect.
Ik ben weer goed geholpen :thumb:

 

[edmoor]

Ok dan :thumb: