worksheets [Excel macro]

option explicit

public sub worksheets_()

  dim i as long
  i=1

  dim ws as worksheet
  for each ws in worksheets
    cells(i,1).value = ws.name
    i = i+1
  next ws

end sub