Sub Namelist()
‘Lists the sheet names in a workbook
Dim i As Integer
Sheets.Add Before:=Sheets(1)
For i = 2 To Worksheets.Count
Sheets(1).Cells(1, 1).Value = “Worksheet names”
Sheets(1).Cells(i, 1).Value = Worksheets(i).Name
Next
End Sub
Like this:
Like Loading...
Related
Author: dilipramadas
https://www.dilipramadas.com I'm Dilip Ramadas. By profession, I’m a Business Analyst. In my career, I’ve worked as an employee, freelance, and also consultant in my spare time. My job greatly revolves around researching new tech in a given industry, research for locations for a new startup, marketing/product placement strategies, analytics, and automation. While doing so I have always tried my best to learn as is possible. My interest areas are analytics, MS Excel, VBA, WordPress, Learning, Organic farming, etc.
