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 |
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 |
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:15 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com