Rename a worksheet

Hi guys, this macro works but is there anyway I can change the

Set W1 = Worksheets("Sheet1")

so that ("Sheet1") can be any number? possibly using the ("*") which i think relates to any number. Every time a sheet is added it goes 2,3,4 etc. At the moment this is set up to change sheet1, any help would be greatly appreciated.

Sub Addsheets()

Set W1 = Worksheets("Sheet1")

Sheetname = W1.Range("AE18").Value

    Sheets.Add After:=ActiveSheet
    
  
    W1.Name = Sheetname
End Sub