FOR EACH code help

[PATSYS]

Somebody please tell me what is wrong with this code?

Sub runt()

Dim sh As Worksheet
Dim i As Integer

For i = 1 To Sheets.Count

    For Each sh In Sheets
    
    Sheets("sheet1").Cells(i, 1).Value = sh.Name

    Next sh
Next i

End Sub

It does not loop thru all sheet names.

Thanks in advance

 

[AlphaFrog]

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> runt()<br><br>    <SPAN style="color:#00007F">Dim</SPAN> i      <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br><br>    <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> Sheets.Count<br>        Sheets("sheet1").Cells(i, 1).Value = Sheets(i).Name<br>    <SPAN style="color:#00007F">Next</SPAN> i<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[PATSYS]

Thanks Alphafrog.