Show all sheets after the 5 sheets.

[KlausW]

Hi everyone I use this VBA code to show all sheets in an Excel file. In a sheet.
Work very well. I can't figure out how to get it to show all sheets after the 5th sheet In a sheet.
Anyone who can help?
Any help will be appreciated
Best Regards Klaus W

Sub ListSheets()

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, 2) = ws.Name
     x = x + 1
Next ws

End Sub

 

[Joe4]

Try this:

Sub ListSheets()

Dim x As Integer

For x = 6 To Worksheets.Count
     Sheets("Sheet1").Cells(x - 5, 2) = Sheets(x).Name
Next x

End Sub

 

[KlausW]

Hi everyone I use this VBA code to show all sheets in an Excel file. In a sheet.
Work very well. I can't figure out how to get it to show all sheets after the 5th sheet In a sheet.
Anyone who can help?
Any help will be appreciated
Best Regards Klaus W

Sub ListSheets()

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, 2) = ws.Name
     x = x + 1
Next ws

End Sub

Try this:

Sub ListSheets()

Dim x As Integer

For x = 6 To Worksheets.Count
     Sheets("Sheet1").Cells(x - 5, 2) = Sheets(x).Name
Next x

End Sub

It works as it should if I want the first name to be in cell b2? How do I go then?

 

[Joe4]

It works as it should if I want the first name to be in cell b2? How do I go then?

Sub ListSheets()

Dim x As Integer

For x = 6 To Worksheets.Count
     Sheets("Sheet1").Cells(x - 4, 2) = Sheets(x).Name
Next x

End Sub

 

[KlausW]

Sub ListSheets()

Dim x As Integer

For x = 6 To Worksheets.Count
     Sheets("Sheet1").Cells(x - 4, 2) = Sheets(x).Name
Next x

End Sub

thanks just as it should be have a nice day Best regards from Denmark KW