Seeking to get worksheet names, ignore active sheet

[auto.pilot]

I would have sheet names in column A, ignoring the active sheet. How can I do this?

 Sub GetSheetNames()
Dim ws As Worksheet, nextrow As Long
For Each ws In ThisWorkbook.Worksheets

        nextrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
        ActiveSheet.Range("A" & nextrow) = ws.Name

Next ws

End Sub

 

[Momentman]

Maybe this way

Sub GetSheetNames()
    Dim ws As Worksheet, nextrow As Long
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then
            nextrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
            ActiveSheet.Range("A" & nextrow) = ws.Name
        End If
    Next ws
End Sub

 

[auto.pilot]

Excellent, thank you.

jim

 

[Momentman]

You are welcome