expression.Sheets

expression   An expression that returns a Application object.

Remarks

Using this property without an object qualifier is equivalent to using ActiveWorkbook.Sheets.

Example

This example creates a new worksheet and then places a list of the active workbook's sheet names in the first column.

Set newSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
    newSheet.Cells(i, 1).Value = Sheets(i).Name
Next i