Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'vba list all the sheets in a page
- Dim ws As Worksheet
- Dim x As Integer
- x = 1
- Sheets("Sheet1").Range("A:A").Clear
- For Each ws In Worksheets
- Sheets("Sheet1").Cells(x, 1) = ws.Name
- x = x + 1
- Next ws
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement