Listing worksheet names and extracting specific row data

[boatbabe]

Hi there, I wonder if you can help. I have a spreadsheet with 50 plus worksheets. I want to insert a summary sheet which list all the worksheet names except hidden sheets, and then copies the data in a row specified by a user on the summary sheet. For instance, work sheets are named A-Z and column A of each row contains the row number. On the summary sheet there is a box titled "enter row number" and user enters "100"
List generated looks like this:
A 100
B 100
C 100
etc...

I have the macro to list the worksheets as

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Next i

End Sub

but need to make it ignore hidden sheets.

I can then either put a macro in to gather the required row info or use Lookup and if functions - whatever is easier.

Thanks in advance for any help you can offer,
Nina