ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   list sheet names vertically below the active cell - need macro. (https://www.excelbanter.com/excel-worksheet-functions/160098-list-sheet-names-vertically-below-active-cell-need-macro.html)

Eddy Stan September 28th 07 05:19 PM

list sheet names vertically below the active cell - need macro.
 
I am having at least 45 sheets in few of my workbooks which i get daily, so
it is very difficult to find which sheet is missing. a simple macro to list
sheets would help a lot.
please....

I need all the sheet names in the active workbook, listed one below the
other.

Like if my active cell is c25, then when i run the macro, it must list all
the sheet names below c25 starting from c25 to c70 (45 sheet names)

i would like to put this macro in a control button.

if i could get this code before 1st october, will be much obliged.

if possible give to horizontally also, c25,d25,e25...

Eddy Stan

Gary''s Student September 28th 07 05:26 PM

list sheet names vertically below the active cell - need macro.
 
Try this:

Sub eddy_current()
Set r = ActiveCell
For i = 1 To Worksheets.Count
r.Offset(i - 1, 0).Value = Sheets(i).Name
Next
End Sub

If this is what you want, just make a button from the Forms toolbox and
assign the macro to the button.
--
Gary''s Student - gsnu200747


"Eddy Stan" wrote:

I am having at least 45 sheets in few of my workbooks which i get daily, so
it is very difficult to find which sheet is missing. a simple macro to list
sheets would help a lot.
please....

I need all the sheet names in the active workbook, listed one below the
other.

Like if my active cell is c25, then when i run the macro, it must list all
the sheet names below c25 starting from c25 to c70 (45 sheet names)

i would like to put this macro in a control button.

if i could get this code before 1st october, will be much obliged.

if possible give to horizontally also, c25,d25,e25...

Eddy Stan


Tom Ogilvy September 28th 07 07:48 PM

list sheet names vertically below the active cell - need macro
 
Put a couple of chart sheets intermingled with the worksheets and run this.

--
Regards,
Tom Ogilvy




"Gary''s Student" wrote:

Try this:

Sub eddy_current()
Set r = ActiveCell
For i = 1 To Worksheets.Count
r.Offset(i - 1, 0).Value = Sheets(i).Name
Next
End Sub

If this is what you want, just make a button from the Forms toolbox and
assign the macro to the button.
--
Gary''s Student - gsnu200747


"Eddy Stan" wrote:

I am having at least 45 sheets in few of my workbooks which i get daily, so
it is very difficult to find which sheet is missing. a simple macro to list
sheets would help a lot.
please....

I need all the sheet names in the active workbook, listed one below the
other.

Like if my active cell is c25, then when i run the macro, it must list all
the sheet names below c25 starting from c25 to c70 (45 sheet names)

i would like to put this macro in a control button.

if i could get this code before 1st october, will be much obliged.

if possible give to horizontally also, c25,d25,e25...

Eddy Stan



All times are GMT +1. The time now is 03:30 AM.

Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
ExcelBanter.com