I use the following often; It's not exactly what your asking
but I find it helpful - and maybe you can use it to get to your solution
In a standard module paste in:

Sub ListOutSheetNames()
Application.ScreenUpdating = False
Dim Nsheet As Worksheet
Set Nsheet = Sheets.Add
Dim WS As Worksheet
Dim r As Integer
r = 1
For Each WS In Worksheets
If WS.Name < Nsheet.Name Then
Nsheet.Range("A" & r) = WS.Name
r = r + 1
End If
Next WS
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Works well for me..
HTH

"arcq" wrote in message
oups.com...
HI!

Can anybody please tell me how to put the list of Sheet Names in a
list. Like for example, in a particular cell, a list would show
"Sheet1", "Sheet2", & "Sheet3". Would it be possible also, that if a
new Sheet will be added, ie. "Sheet4", it would just add up on that
list.

That list will be then used as choices to what particular sheet I would
print.

The situation is, I have a table on each sheet. Same format. Sometimes,
new sheet/s is/are added. Within that table, I have series of codes
taking data in one row, pasting it in a form, and give print. Then,
goes to the next row...and so on and so forth.

Please help. Thanks a lot people of great minds.....

Best regards.