I have a workbook that has close to 100 worksheets in it and have come up
with a little this code to list all the worksheet names on a single worksheet
starting at row 2. What I am trying to do is manipulate this code even
further that states to have it list the worksheets from row 2 down to row 30
in column 1, then move over to column 2 and do the same thing from row 2 to
30 and so on till all names have been listed.

Sub ShowNames_Click()
Dim wkbkToCount As Workbook
Dim ws As Worksheet
Dim iRow As Integer
Set wkbkToCount = ActiveWorkbook
iRow = 2

For Each ws In wkbkToCount.Worksheets
ActiveSheet.Rows(iRow).Cells(1).Value = ws.Name

iRow = iRow + 1

Next

Range("A1").Select
End Sub