Using Array to Loop through specific sheets - need to add sheet name

I am using an array to loop through specific sheets.

vSheets = Array(Sheet5, Sheet6, Sheet7, Sheet8, Sheet9, Sheet10, Sheet11, Sheet12, Sheet13, Sheet14, _
                    Sheet15, Sheet16, Sheet17, Sheet18, Sheet19, Sheet20, Sheet21, Sheet22, Sheet23, _
                    Sheet24, Sheet25, Sheet27, Sheet28, Sheet45)
 
   
 For x = LBound(vSheets) To UBound(vSheets)
  With vSheets(x)

I want to add the name of the sheet to range("I2") - I tried .range("I2").value=Worksheets.name

wks.name does not work