Excel VBA - Create workbook.vb

Sub create_new_workbook()
    Application.ScreenUpdating = False
    'Avoids showing display alerts such
    'prompts to the person running the macro
    Application.DisplayAlerts = False
    
    Dim wb As Workbook
    Dim wk As Worksheet
    
    'Create workbook
    Set wb = Workbooks.Add
    Set wk = wb.Worksheets(ActiveSheet.Name)
    
    'Do something with the sheets
    wk.Name = "Kendall Jenner"
    wk.Tab.Color = RGB(205, 92, 92)
    wk.SaveAs Filename:="C:\Users\...\Downloads\" + "test.xlsx"
    
    'Close workbook
    ActiveWorkbook.Close
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub