Two lines like this ought to do it for you:

currentsheetnum = Application.WorksheetFunction.Substitute(ActiveSheet.Name, "Week", "")
    
NewSheetName = "Week" & currentsheetnum + 1