Ik heb een macro die een tabblad maakt en hem vervolgens de naam geeft die in een bepaalde cel staat.
Stel dat ik twee tabbladen maak met dezelfde naam gaat hij heel raar doen. Ik ben op zoek naar een code die dan wel de inputnaam pakt, maar daar dan bijvoorbeeld een (2) achter zet.
Code:
Sub Nieuwebon_lid()
ActiveWorkbook.Unprotect Password:="wsv"
Sheets("ZZ NieuweBonLid").Copy , Sheets(Sheets.Count)
With ActiveSheet
.Name = Worksheets("ZZZ MENU").Range("F7").Value
.Range("B3").Value = "Naam: " & Worksheets("ZZZ MENU").Range("F7").Value
.Range("E3") = Worksheets("ZZZ MENU").Range("F8").Value
End With
ActiveWorkbook.Protect Password:="wsv"
End Sub
Stel dat ik twee tabbladen maak met dezelfde naam gaat hij heel raar doen. Ik ben op zoek naar een code die dan wel de inputnaam pakt, maar daar dan bijvoorbeeld een (2) achter zet.