werkblad aanmaken en naambepaling

[kibus]

Beste kenners.

Ben op zoek naar een macro die een nieuw blad aanmaakt en gelijk metde naam van vorige werkblad met een T ervoor.

Sta bv in werkblad met naam jan dan moet hij een nieuw blad aanmaken met als naam Tjan

Iemand enig idee

alvast bedankt

 

[Wigi]

Sub BladAanmakenWigi()

    Dim ws As Worksheet
    Dim sSheetName As String
    
    sSheetName = "T" & ActiveSheet.Name
    
    Set ws = ThisWorkbook.Sheets.Add(after:=ActiveSheet)
    
    ws.Name = sSheetName
    
    Set ws = Nothing

End Sub

Wigi