Excel: Naam sheet wijzigen na Sheets.Add methode

[renew000]

Hallo,

Op dit moment worstel ik met het probleem dat ik de naam van het sheet niet kan wijzigen middels VBA

Ingesloten een stukje VBA waarmee ik het volgende probeer te bewerkstelligen:
- vanuit een workbook wordt een sheet aangemaakt met duplicaatgegevens van een andere sheet
- Deze Sheet wordt vervolgens als los bestand met een naam afkomstig uit een textbox verzonden naar 1 ontvanger.

Bovenstaande lukt allemaal erg goed maar ik heb tot nu toe nog geen idee hoe ik het voor elkaar kan
krijgen om invloed uit te oefenen op de naam van het te versturen workbook en op de naam van de sheet dat het workbook bevat.

Wie o wie kan mij hierbij helpen. Onderstaand het stukje VBA dat ik momenteel gebruik

Sub mcrVerzenden()
    
    Dim Names()
    Dim NamesCurrence()
    
    Names = Array("rene.hanssens@gmail.com")
     
        On Error Resume Next
    
    With ActiveWorkbook
        With .Sheets.Add

            ActiveWorkbook.Sheets(2).Cells.Copy .Cells(1)
            
            .Copy

            With ActiveWorkbook
            
            .SendMail Names(), OpmaakForm.txtNaam
            .Close False
            
            End With
            
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True

        End With

    End With
     
End Sub

Alvast bedankt
greetz
Renew

 

[snb]

Als je het werblad 'Rene' wil versturen:

Sub snb()
  Thisworkbook.sheets("Rene").copy

  With activeworkbook
     .saveas "G:\OF\kopie van sheet Rene.xlsx", 56
     .sendmail "rene.hanssens@gmail.com"
     .close false
  end with
end sub