Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Sub to aquire list of worksheets


Code
-------------------
Sub MacroAddNewFileListSheetNames()

Range("*I1*").Select
For Each Sheet In ActiveWorkbook.Worksheets
Select Case Sheet.Name
Case "*Master Numbers*"
'Ignore
Case Else
ActiveCell.Value = Sheet.Name
Cells(Cells.Row + 1, Cells.Column).Activate
End Select
Next
End Su
-------------------


The above code only seems to work for TWO sheet names.
Once TWO names has been entered, the second name is overwritten.

Any ideas please

--
aking198
-----------------------------------------------------------------------
aking1987's Profile: http://www.excelforum.com/member.php...fo&userid=1539
View this thread: http://www.excelforum.com/showthread.php?threadid=31434

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 400
Default Sub to aquire list of worksheets

DONT create new threads as you have been doing: it sends everyone else on a
wild goose chase and you can't track whether the problem has been answered.

See your original posy about 4 below this.

"aking1987" wrote:


Code:
--------------------
Sub MacroAddNewFileListSheetNames()

Range("*I1*").Select
For Each Sheet In ActiveWorkbook.Worksheets
Select Case Sheet.Name
Case "*Master Numbers*"
'Ignore
Case Else
ActiveCell.Value = Sheet.Name
Cells(Cells.Row + 1, Cells.Column).Activate
End Select
Next
End Sub
--------------------


The above code only seems to work for TWO sheet names.
Once TWO names has been entered, the second name is overwritten.

Any ideas please?


--
aking1987
------------------------------------------------------------------------
aking1987's Profile: http://www.excelforum.com/member.php...o&userid=15393
View this thread: http://www.excelforum.com/showthread...hreadid=314346


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4,624
Default Sub to aquire list of worksheets

He can't necessarily help it. Excel-forum has been posting broken
replies for days now. They have a "thread-id" in the bottom of the post
that takes you to the web site, but the article itself doesn't contain a
Reference: field.

Mr. Rubin of Excel-forum says he's aware of the issue and is working to
fix it.

In article ,
"AA2e72E" wrote:

DONT create new threads as you have been doing: it sends everyone else on a
wild goose chase and you can't track whether the problem has been answered.

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4,624
Default Sub to aquire list of worksheets

In article ,
"AA2e72E" wrote:

See your original posy about 4 below this.


BTW - Why do you assume that "the original posy" is "below this"?

If you use a real newsreader instead of a web portal, you can configure,
sort, and slice posts the way you want. I happen (today) to have my
messages sorted with oldest on top, sorted by thread, so for me it was
"6 above this" (unless you count the two additional posts in one thread
that are hidden until I select the 1st post in the thread). When this
reply is posted, this thread will move up near the top for me, since
I'll be in the "Reference" header chain. It'll have a different color
for the author field (since it's me), a different font color (since I've
replied), and a different background color (since the post was made from
a Mac newsreader).
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Get a list of worksheets from a WB John Scott Excel Discussion (Misc queries) 1 February 26th 06 05:47 PM
Sub to aquire list of worksheets aking1987[_9_] Excel Programming 4 November 17th 04 05:27 PM
Sub to aquire list of worksheets aking1987[_11_] Excel Programming 3 November 17th 04 03:57 PM
Sub to aquire list of worksheets aking1987[_13_] Excel Programming 0 November 17th 04 03:44 PM
Get a List of Worksheets glonka[_2_] Excel Programming 6 August 10th 04 10:52 PM


All times are GMT +1. The time now is 12:04 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"