Worksheet Names listing Macro

[jiddings]

I have the following macro that counts worksheets and inserts worksheet names in Column A starting at row 4.

Sub() InsertNames
For i = 1 To Worksheets.Count
ActiveSheet.Cells(i + 3, 1).Value = Worksheets(i).Name
Next i
End Sub

I have two worksheets that I do not want to appear on the listing. What do I need to do with the macro so those names do not appear in the listing?
Using Excel 2007
Thanks

 

[Peter_SSs]

Try this after editing for your 2 'excluded' sheet names.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> InsertNames()<br>    <SPAN style="color:#00007F">Dim</SPAN> n <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> Worksheets.Count<br>        n = Worksheets(i).Name<br>        <SPAN style="color:#00007F">If</SPAN> n <> "abc" And n <> "def" <SPAN style="color:#00007F">Then</SPAN><br>            r = r + 1<br>            ActiveSheet.Cells(r + 3, 1).Value = n<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[jiddings]

That worked!
Thank you very much!!!