Extracting worksheet names for a given workbook

[saeidpp]

Hi.

I have a macro which runs on a workbook by openning other workbooks and copying their sheets across while formatting them and performing some calculations,

My problem is just one tab (worksheet) that has a different name every month. e.g "Income (july)" and "Income (Aug)".

I have a solution for I do not know how to implement

In the main worksheet (master sheet) I want to use vba code to bring back all the tab names and from there I can use the cell values to pull back data from the "Income tab"

Any ideas how I can implement this?
Thanks you very much for your help

 

[texasalynn]

Welcome to MrExcel board...

try this

Sub SheetName()
Dim i As Long, LR As Long
Dim sName As String
Application.ScreenUpdating = False
LR = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Row + 1
 
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Sheets(i).Activate
        If Sheets(i).Name <> "Master" Then
            sName = Sheets(i).Name
            Sheets("Master").Cells(LR, 1) = sName
            LR = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Row + 1
        End If
    Next i
MsgBox "Done"
Application.ScreenUpdating = True
End Sub