Worksheet List In Another Window

[FRIJOE]

Hello,

I want to have a list of all the worksheets in my workbook listed on another sheet.

Right now I have;

Sub SheetNames()
Dim wsheet As Worksheet

Set wsheet = Worksheets("Lists")
With ws
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End With
End Sub

I am trying to have the list populate on sheet name "Lists", however whenever I run the code, the output is on whatever page is currently open when I run it.

Any help?

Thank you,

 

[Fluff]

You need to put a . (period) in front of Cells(i,1)

 

[FRIJOE]

You need to put a . (period) in front of Cells(i,1)

I tried that and got
"Run-time error '424': Object Required", debug takes me to that line

.Cells(i,1)=Sheets(i.)Name

 

[My Aswer Is This]

Try this:

Sub Add_Sheets_Names()
'Modified 3-19-18 5:25 PM EDT
Dim i As Long
    For i = 1 To Sheets.Count
        Sheets("Lists").Cells(i, 1).Value = Sheets(i).Name
    Next
End Sub

 

[FRIJOE]

Disregard my last, you are correct. The fourth line of my code used a different and undefined variable "ws"

I edited it and now have this;

Sub SheetNames()
Dim ws As Worksheet

Set ws = Worksheets("Lists")
With ws
.Range("a1:a50").Clear
For i = 1 To Sheets.Count
.Cells(i, 1) = Sheets(i).Name
Next i
End With
End Sub

Which is working perfectly.

Thank you!

 

[Fluff]

@FRIJOE
your original code should be

Sub SheetNames()
Dim wsheet As Worksheet

Set wsheet = Worksheets("Lists")
With wsheet
   .Columns(1).Insert
   For i = 1 To Sheets.Count
   .Cells(i, 1) = Sheets(i).Name
   Next i
End With
End Sub

I missed that you had changed wsheet to ws.

EDIT
I see that you've sorted.

Glad to help & thanks for the feedback