VBA to List Sheet Names

[ANE0709]

I am trying to list the sheet names within the workbook using VBA. I found the following code online for which i modified for my particular project. problem is i need to take it one step further but not sure how exactly to modify it. As-is this code is currently listing all tabs. i do not want to list the first 7 tabs. How can i modify the code to start listing the sheet names starting with tab 8?

Sub ListAllSheets()

Dim ws As Worksheet
Dim Counter As Integer

Counter = c

For Each ws In ActiveWorkbook.Worksheets
Sheets("Metrics").Select
Range("B3").Select
ActiveCell.Offset(Counter, 0).Value = ws.Name
Counter = Counter + 1

Next ws

End Sub

 

[Fluff]

How about

Sub ListAllSheets()
   Dim i As Long
   
   For i = 8 To Worksheets.Count
      Sheets("Metrics").Range("B3").Offset(i - 8).Value = Worksheets(i).Name
   Next i
End Sub

 

[lrobbo314]

How about this?

Sub ListAllSheets()
  
With CreateObject("Scripting.Dictionary")
    For i = 8 To ActiveWorkbook.Worksheets.Count
        .Add Sheets(i).Name, True
    Next i
    ActiveCell.Resize(.Count).Value = Application.Transpose(.Keys)
End With

End Sub

 

[ANE0709]

Both of these worked perfectly! Thank you

 

[JEC]

One more

Sub jec()
 Dim c00, i As Long
 For i = 8 To Sheets.Count
   c00 = c00 & "|" & Sheets(i).Name
 Next
 Range("B3").Resize(i - 8) = Application.Transpose(Split(Mid(c00, 2), "|"))
End Sub

 

[Fluff]

Glad we could help & thanks for the feedback.