macro that displays a message box with a name list of all sheets

[Marco1975]

Hi,

it's possible make a macro that displays a message box with a name list of all sheets??
The list should start from the sheet number 7.

The end result should be:

Sheets list:
sheet7 name
sheet8 name
sheet9 name
and so on....

Thanks.

 

[Deepak]

Hi,

Is...

Sub MBOX()
    Dim i As Integer, sh As String
   
    For i = 7 To ThisWorkbook.Sheets.Count
        sh = sh & Chr(10) & ThisWorkbook.Sheets(i).Name
    Next
   
    MsgBox "Sheet List" & sh
End Sub

 

[Marco1975]

thank you very much deepak!!!

 

[musicarnab]

Writing in this thread because my problem is similar. I also want to count of used range beside each worksheet name. where I am going wrong:
>>> use code - tags <<<

For i = 1 To ThisWorkbook.Sheets.Count
        str = str & Chr(10) & ThisWorkbook.Sheets(i).Name
        'j = j & Chr(10) & ThisWorkbook.Sheets(i).UsedRange.Rows.Count
        'ActiveSheet.UsedRange.Rows.Count
Next
MsgBox str &  j

Please help

 

[vletm]

musicarnab
As a new member, You've just read Forum Rules

Site Rules - New Users - Please Read

Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...

chandoo.org

There is a sentence:

• Start a new post every time you ask a question, even if the theme is similar. The original author may continue asking questions whilst the post is in progress and of course if you are answering questions you may need to ask questions of the initial poster.

... and explain - what is Your similar problem?
Your code would show str-value as You've coded.